Software Design for a 
38.4 kbaud Data Terminal 



INTRODUCTION 

This Application Note describes a CRT terminal designed 
around the DP8350 CRT controller and the INS8080 micro- 
processor. The hardware is a modified version of the circuit 
described in Application Note AN-199. The software was 
redesigned and optimized for terminal speed and function. 
In its present form it is upwards compatible with the Hazel- 
tine 1500 video terminal and has a limited graphics capabili- 
ty. Furthermore, it is able to communicate with a host com- 
puter via an RS-232 port, at 38.4 kbaud, without using fill-in 
characters or handshaking. One 2k by 8 EPROM contains 
all the software required to implement the terminal. An op- 
tional EPROM can be used to add features such as menu 
display or to transform the terminal into a calculator (in the 
local mode). The absence of the second EPROM does not 
affect the operation of the terminal as the software checks 
for its presence. 

DATA TERMINAL FEATURES 

■ Modes: remote/local 

■ Limited graphics 

■ Window scrolling 

■ Line transmitting and local editing 

■ Hazeltine 1500 compatible* 

■ Video display: two pages, 24 x 80 characters/page 

■ Upper/lower case 

■ Scrolling plus screen roll up/roll down 

■ Cursor: blinking (two rates) 

■ Line, character insert/delete 

■ Attributes: dual intensity/inverse video 

■ Full duplex RS-232 port; 110-38400 baud 

■ Keyboard input: 7-bit parallel 

■ Full cursor control and addressing 

■ Cursor enable/disable 

■ Single board (BLC/SBC) compatible design 

*The majority of the software written for the Hazeltine 1 500 will run with no 
modification. However, there are differences. 
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UNIQUE FEATURES 

Graphics Capability: The graphics capability of this termi- 
nal, although limited by the number of symbols (34), proves 
to be very helpful. Typical uses include digital waveform 
generation (e.g., logic analyzer display), and graph oriented 
displays such as histograms. A graphics menu is available in 
the local mode. Entering f Qf from the keyboard will result 
in a two line menu display. Line 23 displays upper and lower 
case characters, while line 24 displays the corresponding 
graphics symbols (see Figure 3). In local, entering t B will 
switch the terminal to the graphics mode; the ESC key can 
be used to exit. In remote mode, the format requirements for 
graphics display generation are summarized by the flow- 
chart shown at the bottom of this page. 
The same flowchart can be used in local, if the "lead-in"$ 
block is omitted. 
Typical transmission sequences are: 

7E, 02, 42, 10, 1B 

7E, 02, 63, 10, 10, 10, .. . ,10, 1B 

7E, 02, 42, 8, 8, 8, 4A, 7E, 0C, 7E, 0C, 1B 
All the graphics symbols, along with the upper and lower 
case characters, are coded into one 2716 EPROM. As a 
result, both the character set and the graphics symbols may 
be customized. The total number of available fonts is 128. 
The field on each displayed character is 7 rows by 10 col- 
umns. The alphanumeric symbols occupy a 5 by 7 subfield 
typically, except for those requiring descenders; they occu- 
py a 5 by 9 section, while the graphics symbols utilize the 
whole 7 by 10 field. 

Transmit: The data terminal can transmit one line of text 
upon receipt of the 14H code from the keyboard in local 
mode. Alternately, the host CPU can request transmission 
by sending 14H prefixed by the 7E lead-in code. 

tNote that T indicates a control key entry. 
tLead-in code: 7E. 
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The same function can be used in a relatively unconvention- 
al way when programming in BASIC. The majority of BASIC 
interpreters used in small business systems or home com- 
puters incorporate a line-oriented editor, almost adequate 
for most of the tasks they have to perform. The basic prob- 
lem with such editors is that they cannot change the flow of 
the program easily. In other words they cannot change line 
numbers. This is a shortcoming, as it is both annoying and 
tedious having to retype segments of text in order to change 
the program flow, just because the editor cannot handle 
altering line numbers only. 

This terminal offers an efficient solution to this problem. 
Simply stated, it allows changing line numbers only. Here is 
a brief description of a typical sequence leading to text and/ 
or line number modification. Let us assume that a BASIC 
interpreter is used and that the program that needs to be 
changed is in memory. Using the list command, the program 
lines to be modified can be displayed. Now, while in the 
Command Mode of BASIC, the terminal is switched to local. 
The user has effectively at his disposal a screen-oriented 
editor. The cursor can be moved about and text changed as 
desired; that, of course, includes line numbers. When the 
editing is completed, the user positions the cursor on the 
line that was altered and types f T. In response, the cursor 
scans the line, inverting the attributes. At the same time the 
line is transmitted to the host CPU in the same order as it 
was scanned, from left to right. Attribute inversion serves as 
feedback to the user. After the last character of each line 
has been transmitted, the cursor returns to the beginning of 
the following line. As a result, consecutive TT keyboard 
entries transmit successive lines. Thus, altering the flow of a 
BASIC program involves entering the local mode, changing 
line numbers, transmitting the modified program lines, and 
switching back to on-line operation. All this can be accom- 
plished at a fraction of the time usually required otherwise. 
Finally, entering similar lines of text such as the ones found 
in "PRINT" statements, can be accomplished easily by 
switching to local, typing the first line and transmitting it; 
then moving the cursor up one line, changing the line num- 
ber along with parts of the text that are different, retransmit- 
ting the line, and so on. In this way the user can create a 
long program segment while operating repetitively on one 
line. 

Insert/Delete with Range: This is a rather unusual function 
that can assist in generating pseudo "screen window" ef- 
fects. Specifically, a pre-selected number of display lines 
can scroll while the rest of the display remains fixed. Each 
"window" is defined as N lines by 80 characters, where: 
1<N<48, counting from the current cursor location to the 
end of page. The brief BASIC program that follows demon- 
strates the use of this function. In this example the display 
lines 1 through 4, and 19 through 24 remain "frozen". The 
message (100 lines long) is displayed on lines 5 through 18, 
demonstrating the scrolling of a section of the display. 

100 PRINT CHR$(&H7E) + CHR$(&H11) + "d" ; 

110 FOR I = 1 TO 100 

120 PRINT CHR$(&H7E) + CHR$(&H1D) 

+ CHR$(&H49) + CHR$(12) ; 
130 PRINT, "WINDOW SCROLLING LINE:", I, 

CHR$(&H0D) 

140 NEXT I 



80 Character Software FIFO: This is one of the key items 
that allows terminal communication at 38.4 kbaud without 
handshaking. An 80 character first-in, first-out software buff- 
er is used. The incoming characters are stored temporarily 
in this buffer, while the microprocessor is servicing inter- 
rupts. As time becomes available, the characters are re- 
trieved from the FIFO and processed. That includes per- 
forming a terminal function or moving an ASCII character to 
the video memory. The software allows for a large number 
of concurrent service requests such as row start, keyboard, 
as well as multiple ACE interrupts. 

Fast Service Routine for Row Start Interrupt: Conven- 
tional row start address look-up and loading are not done 
during the row start interrupt time; instead, a simple row 
counting routine is used. The terminal count (a software 
counter) generates a triggering signal for video RAM wrap- 
around address loading. The use of this technique improves 
the system throughput substantially. Cursor and Top of the 
Page address loading (i.e., writing to the appropriate 
DP8350's registers) is done during the vertical retrace inter- 
val. 

Keyboard Controlled Mode Selection: The operating 
mode of the terminal can be selected from the keyboard. To 
aid the user in identifying which mode the terminal is in, two 
cursor blinking rates are used. The low rate indicates re- 
mote mode; a high rate indicates local. 
Other functions that can be selected from the keyboard are: 

1) Upper/lower case. The default mode upon power up is 
determined by reading the SW3 switch setting. 

2) Next page. A software switch that selects for display 
page one or two. 

Read Cursor: In the local mode the present cursor location 
can be displayed on line 24, columns 79-80. For example, if 
the cursor is located on line 8, column 66, entering f E from 
the keyboard will result in a display of "Ag" at the bottom 
right hand corner of the screen. This can save time in look- 
ing up the ASCII equivalent codes of the X, Y cursor coordi- 
nates to be used in cursor addressing. (Note that, T E = 
ENQ = 05H.) 

The following is an example of how this could be used in a 
BASIC program. 

PRINT CHR$ (&H7E) + CHRft (&H11) + "Ag" 
Upon execution of the above statement, the cursor will 
move to line 8, column 66. 

Menu Display: In the local mode the user has access to a 
menu display that summarizes the terminal's functions, 
along with the corresponding control codes (see Figure 1). 
This feature is optional and resides in EPROM #2. The im- 
portant thing to note is that various kinds of menu/HELP 
displays can be implemented easily in this fashion. This 
function can be accessed from the keyboard. Alternately, a 
dedicated HELP key (that generates the 1D code) can be 
used. 







MOVE 




INSERT 


CURSOR SPECIAL FUNC 






Lf 8A/8A 


Lf 


InChr *1E/1E TRt CurEn *93/63 tC|Ro«2 /ID tEsc 






Cr 0D/9O 


Cr 


InLne Ufl/ifl tLf CurDi *B6/96 tF|Bell 97/ 






Tab 89/99 


Tab 


LnRng *1DIP/ 


RdCur *11PP/ Scale /87 tG 






Up *8C/BC 


Up 




RdCur *05/ FgFU HF/1F t> 






Doun *BB/8B 


Du 


DELETE 


BgFlw *19/i9 t< 






Le^t 88/88 


Lt SoChr *64/94 tH 


CONTROL Grphc *02P/82 tB 






Right 18/18 


Rt SoLne *13/13 tDel OLLcl /88 OL/L|DeGrp *1BAB Esc 






RolUp *81/81 


tup LnRng *1DSP/ 


BdULc /7E tO/L GrHan /li tg 






RolDw *16/16 


tOw 


DRstL *8F/9F tO HxPge *8E/BE tH TxLne *14/14 tT 






Hoie *12/12 


tCr 


DRstP mm tM Leadn 7E/ 

HiClr *1C/1C tl LkKb *\S/15 tU *=7E Ueadin) 










CFB U8/18 n 


UlkKb «B3/83 tC|func ol/lcl key 







TL/F/5869-2 



FIGURE 1. Sample Menu Display 
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FIGURE 2. Sample Character Font 
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FIGURE 3. Graphics Menu Shown at the Bottom of the Screen 
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Control Functions Summary 


Functions 


On-Line / Local 


Remarks 


Cursor Move/Control 






Line Feed 


OA/OA 




Carriage Return 


OD/OD 




Tab 


09/09 




Cursor Up 


7E, 0C / 0C 




Cursor Down 


7E.0B/0B 




Cursor Left 


08/08 




Cursor Right 


10/10 




Home 


7E, 12/ 12 




Home and Clear 


7E.1C/1C 




Enable Cursor 


7E, 03 / 03 




Disable Cursor 


7E, 06 / 06 




Address Cursor 


7E, 11,X,Y/ 


Remote Only 


Read Cursor 


7E, 05 / 05 




Insert 






Character Insert 


7E, 1E/1E 




Line Insert 


7E.1A/1A 




Line Insert with Range 


7E,1D,49,Y 


Remote Only 


Delete 






Character Strip 


7E, 04 / 04 




Character Delete 
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Line Delete 


7E.13/13 




Line Delete with Range 


7E, 1D, 53, Y/ 


Remote Only 


Clear to End of Line 


7E,0F/0F 




Clear to End of Page 


7E, 17/17 




Miscellaneous 






Local/Remote 
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Local Only 


Upper/ Lower Case 


/7E 
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Next Page 
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Keyboard Lock 


7E.15/15 




Keyboard Unlock 


7E, 03 / 03 




Bell 
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Remote Only 


Special Functions 






Function Menu 


/"ID 


A summary of available functions and their corresponding codes 
(local mode only). 


Graphics On 


7E, 02 / 02 


Enter graphics mode. 


Graphics Off 


7E.1B/1B 


Exit graphics mode. 


Graphics Menu 


/11 


Line 23 displays upper and lower case characters and line 24 
the corresponding graphics symbols (local). 


Line Transmit 


7E, 14/14 


Transmits the cursor line and inverts its attributes. 


Foreground Follows 


7E.1F/1F 




Background Follows 


7EJ9/19 




Clear Foreground 


7E, 18/18 




Scale 


/07 


The line above the cursor becomes a scale (1 -80). This is an aid 
for graphics and text alignment (local). 


Roll Up 


7E.01 /01 




Roll Down 


7E, 16/16 
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36 


2A 


2A 


2A 


2A 




























6E0 











3C 


22 


22 


22 


22 




























6F0 











1C 


22 


22 


22 


1C 




























ADDP 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


c 


D 


E 


F 




700 











3C 


22 


22 


3C 


20 


20 























710 











IE 


22 


22 


IE 


2 


2 

























720 











16 


ie 


10 


10 


10 




























730 











IE 


20 


1C 


2 


3C 




























740 





e 


B 


1C 


8 


e 


8 


4 




























750 











22 


22 


22 


22 


1C 




























760 











22 


22 


2? 


14 


8 




























770 











22 


22 


2A 


2A 


14 




























780 











22 


14 


e 


14 


22 




























790 











22 


22 


22 


IE 


2 


1C 

























7A0 











3E 


4 


6 


10 


3E 




























7B0 


6 


8 


8 


10 


20 


10 


B 


B 


6 

























7C0 


o 


8 


B 


e 





8 


8 


B 




























7D0 


30 


e 


8 


4 


2 


4 


8 


8 


30 

























7E0 











7F 





7F 


































7F0 





1C 


3E 


36 




22 


36 


3E 


1C 
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TITLE CRT801 










iMay 1980 






OOOO' 






ASEG 
ORG 


OOOOOh 












; constants 






OOOA 






LF 


equ 


OAh 




OOOD 






CR 


equ 


ODh 




0020 






SPC 


equ 


020h 




007E 






LINC 


equ 


07Eh ; leadin code 




0060 






RWRG 


equ 


low RR48-low RR1+2 




0003 






KULCDE 


equ 


03h ; kbd unlock code 










; I/O ports 






0080 






KBDPRT 


equ 


080h ; keyboard 




0040 






ROWPRT 


equ 


040h irom interrupt 




0040 






VERPRT 


equ 


040h ,vertical interrupt 




0040 






5ETSW 


equ 


040h ; baud sel , auto 1 f , u/lcase 




0002 






LCLIND 


equ 


2 ; local indicator 




0001 






BELPRT 
i ace 


equ 


1 ibell 




9000 






ACEDTA 


equ 


09000h , data 




9001 






ACEITR 


equ 


ACEDTA+1; interrupt mask 




9003 






ACECTL 


equ 


ACEDTA+3; control 




9005 






ACESTU 


equ 


ACEDTA+5; transmit status 










; ram assignment 




3FFF 






FROWH 


equ 


03FFFh 


first row reg pair 




3FFE 






FROW 


equ 


FROWh-l 






3FFD 






LROWH 


equ 


FROWh-2 


last row reg pair 




3FFC 






LROW 


equ 


FROWh-3 






3FFB 






CROWH 


equ 


FROWh-4 


cursor row reg pair 




3FFA 






CROW 


equ 


FROWh-5 






3FF9 






CURH 


equ 


CROW-1 


cursor reg pair 




3FFB 






CUR 


equ 


CROW-2 






3FF7 






TOPH 


equ 


CUR-1 


top of page reg pair 




3FF6 






TOP 


equ 


CUR-2 






3FF5 






NRW 


equ 


TOP-1 


row counter 




3FF4 






VCALEN 


equ 


TOP -2 


vert calc routine enable 




3FF3 






GSYMBL 


equ 


VCALEN- 1 


graphics symbol 




3FF2 






AULF 


equ 


GSYMBL-1 


auto linefeed, O=auto If 




3FF1 






LOCLM 


equ 


AULF-1 


local mode* 0=remote 




3FF0 






ULCASE 


equ 


AULF-2 


upper/lower case,0=lower 




3FEF 






GECNTL 


equ 


AULF-3 


graphic enab le. 0=d i sab 1 e 




3FEE 






KBDLCK 


equ 


AULF-4 


keyboard loc k, 0=unloc k 




3FED 






RTECTL 


equ 


KBDLCK-1 


cursor blink rate cntl 




3FEC 






CUREN 


equ 


KBDLCK-2 


cursor enable, 0=off 




3FEB 






CURTMR 


equ 


KBDLCK-3 


cursor blinking timer 




3FEA 






FFWCT 


equ 


KBDLCK-4 


ace fifo word count 




3FE9 






LEADIN 


equ 


KBDLCK-5 


leadin mode,0=no leadin 




3FES 






ICMD 


equ 


KBDLCK-6; insert char mode, 0=insert 




3FE7 






CPYCTL 


equ 


ICMD-1 ;row copy direction cntl 




3FE6 






FFWRT 


equ 


CPYCTL-lf f if o write pointer 




3FE5 






FFRD 


equ 


CPYCTL-2, f ifo read pointer 




3FE5 






STK 


equ 


FFRD ; stack 3FE4h down 




3FA3 






LINP 


equ 


FFEND+4 ; leadin parameter storage 




3FA2 






LINWCT 


equ 


FFEND+3 ; leadin word count 
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3FA1 






LINFH 


equ 


FFEND+2 ; leadin func jmp addr high 




3FA0 






LINF 


equ 


FFEND+1 ; leadin func jmp addr low 




3F9F 






FFEND 


equ 


03F9Fh ; ace f ifo end 




3F50 






FFSTRT 


equ 


03F50h iace fifo start 3F50/3F9Fh 




3F20 






FBG 


equ 


03F20h » f ore/bac kground cntl 




3F00 






DMYROW 


equ 


03F00h ; dummy row 3F00/3F4Fh 




3780 






FCHR2 


equ 


03780h ; page 2, 1st char 










; INTERRUPTS 












; **#######*#### #**##*!•♦#*#*#*##*## **#**##*###*##* 




0000 


F3 




START: 


DI 


i restart 




0001 


21 


3F00 




LXI 


H, DMYROW iclr non video ram 




0004 


F9 






SPHL 






0005 


C3 


00E2 




JMP 


INIT 




; row in 


terrupt 




0008 


F5 




ROW: 


PUSH 


PSW ; restart 1 




0009 


OC 






INR 


C 




OOOA 


C2 


0066 




JNZ 


NOWRAP ; no wrap arroud 




OOOD 


C3 


0061 




JMP 


VRWRAP ; do wrap arround 




; vertical interrupt 


0010 


E5 




VERT: 


PUSH 


H ; restart 2 




0011 


21 


3FF5 




LXI 


H, NRW 




0014 


4E 






MOV 


C, M ; load NRW 




0015 


C3 


07AE 




JMP 


VTSUB 
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; ac e duplicate 


interrupt 






0018 


C3 


0038 


ACEDUP: 


JMP 


ACE 


; restart 3 










i {FUNCTION} disable cursor 




001B 


21 


3FEC 


DICUR: 


LXI 


H, CUREN 


; d i sab 1 e c ursor 




001E 


77 






MOV 


M, A 


; a=0 




001F 


C9 






RET 








; keyboard interrupt 




0020 


E5 




KBD: 


PUSH 


H 


j restart 4 




0021 


F5 






PUSH 


PSW 






0022 


21 


3FEE 




LXI 


H, KBDLCK 


; keyboard lock cntl 




0025 


C3 


02C9 




JMP 


KBDINT 






; row dup 1 icate 


interrupt 




0028 


F5 




ROWDP: 


PUSH 


PSW 


/ restart 5 




002? 


OC 






INR 


C 






002A 


C2 


0066 




JNZ 


NOWRAP 






002D 


C3 


0061 




JMP 


VRWRAP 






ivertical duplicate interrupt 


0030 


C3 


0010 


VERTDP: 


JMP 


VERT 


; restart 6 




0033 


EB 




TABSTP: 


XCHG 




i fi l = crou> 




0034 


Dl 






POP 


D 


; remove cal 1 




0035 


Dl 






POP 


D 






0036 


73 






MOV 


M, E 


; return org crow 




0037 


C9 






RET 
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0038 






















;ACE INTERRUPT 














; #*####*##**♦**♦#**#*####**##*#*###****#**##*### 




0038 


E5 




ACE: 


PUSH 


H 






0039 


F5 






PUSH 


PSW 






003A 


21 


3FEB 




LXI 


H, CURTMR 






003D 


D5 






PUSH 


D 






003E 


AF 






XRA 


A 






003F 


77 






MOV 


M, A 


reset cursor timer 




0040 


28 






DCX 


H 


FFWCT 




0041 


34 






INR 


M 


fifo empty? 




0042 


C2 


0244 




JNZ 


STFIFO 


no, store to fifo 




0045 


2B 






DCX 


H 


leadin 




0046 


B6 






ORA 


M 






0047 


3A 


9000 




LDA 


ACEDTA 


read ace 




004A 


FB 






EI 








004B 


C2 


0283 




JNZ 


LINMDE 


1 ead in mode 




004E 


E6 


7F 


FIFACE: 


ANI 


07Fh 






0050 


11 


0267 




LXI 


D, FFCHK 






0053 


D5 






PUSH 


D 


pseudo call 




0054 


FE 


OA 




CPI 


LF 






0056 


CA 


03B1 




JZ 


LFEED 






0059 


CD 


01 5C 




CALL 


CALJMP 






005C 


E6 


87 




ANI 


087h 


leadin+jmp addr high 




005E 


F8 






RM 




leadin required, return 




005F 


67 




LCLFUN: 


MOV 


H, A 


jmp addr high 




0060 


E9 




; row ir 


PCHL 
terrupt 


cont inue 


do function 










i #»#***##****###♦*#*#*#* 


*##*###*####**#*#+##*#»tf 




0061 


3E 


01 


VRWRAP; 


MVI 


A, 1 






0063 


32 


5000 




STA 


05000b 


wrap arround addr 




0066 


D3 


40 


NOWRAP : 


OUT 


ROWPRT 


c lr row flip/flop 




0068 


Fl 






POP 


PSW 






0069 


FB 






EI 








006A 


C9 




i WRITE 


RET 
TO ACE 














; **«*«***#*-**«**«-#«-**«-** 


*###**###*#*##«■#*♦*##■**■* 




006B 


3E 


OD 


SNDCR: 


MVI 


A, CR 






006D 


57 




WTACEA: 


MOV 


D, A 






006E 


3A 


9005 


WTACED: 


LDA 


ACESTU 


check status 




0071 


FE 


60 




CPI 


060h 


hold/t x reg i ster 




0073 


DA 


006E 




JC 


WTACED 


not ready 




0076 


CD 


07 5E 




CALL 


*DLY 


delay 




0079 


7A 




OUTACE: 


MOV 


A, D 






007A 


32 


9000 




STA 


ACEDTA 


wr i te to ace 




007D 


C9 




PAGE 


RET 
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007E 
















i ROW 


START LOOKUP TABLE (start addr=7Eh) 








; **#*#*#*«**#****#**♦#***♦****#**##*##**»*##***# 




007E 


3EB0 


R0W47D: dm 


03EB0h 




OOBO 


3000 


R0W48D: dm 


03000h 




0082 


3050 


R0W1 


dw 


030 50h 




0084 


30A0 


R0W2 


dot 


030A0h 




0086 


30F0 


R0W3 


dw 


030F0h 




0088 


3140 


R0W4 


dw 


03140h 




008A 


3190 


ROWS 


dw 


03190h 




008C 


31E0 


R0W6 


dw 


031E0h 




008E 


3230 


R0W7 


dw 


03230b 




0090 


3280 


R0W8 


dw 


03280h 




0092 


32D0 


R0W9 


dw 


032D0h 




0094 


3320 


ROW! 


}: dw 


03320h 




0096 


3370 


ROWi 


1: dw 


03370h 




0098 


33C0 


R0W1 


2: dw 


033C0h 




009A 


3410 


ROWI 


3: dw 


03410h 




009C 


3460 


ROWI 


%\ dw 


03460h 




009E 


34B0 


ROWI 


5: dw 


034B0h 




OOAO 


3500 


ROWI 


b: dw 


03500b 




00A2 


3550 


ROWI 


7: dw 


03550h 




0OA4 


35A0 


ROWI 


3: dw 


035A0b 




0OA6 


35F0 


ROWI 


?: dw 


035F0h 




0OA8 


3640 


R0W2 


D: dw 


03640h 




OOAA 


3690 


R0W2 


1: dw 


03690b 




00 AC 


36E0 


R0W2 


2: dw 


O36E0h 




OOAE 


3730 


R0W2 


3: dw 


03730h 




OOBO 


3780 


R0W2 


%: dw 


03780h 




00B2 


37D0 


R0W2 


5: dw 


037D0h 




00B4 


3820 


R0W2 


b: dw 


03820b 




00B6 


3870 


R0W2 


7: dw 


03870h 




0OB8 


38C0 


R0W2 


3: dw 


038C0h 




OOBA 


3910 


ROWS 


9: dw 


03910h 




OOBC 


3960 


R0W3 


3: dw 


03960h 




OOBE 


39B0 


R0W3 


1: dw 


039B0h 




OOCO 


3A00 


R0W3 


2: dw 


03A00h 




0OC2 


3A50 


R0W3 


3: dw 


03A50h 




0OC4 


3AA0 


R0W3 


*: dw 


03AA0h 




00C6 


3AF0 


R0W3 


5: dw 


03AF0h 




OOCB 


3B40 


R0W3 


b: dw 


03B40h 




OOCA 


3B90 


R0W3 


7: dw 


03B90h 




OOCC 


3BE0 


R0W3 


3: dw 


03BEOh 




OOCE 


3C30 


R0W3 


?: dw 


03C30h 




OODO 


3C90 


R0W4 


3: dw 


03C80h 




00D2 


3CD0 


R0W4 


1: dw 


03CDOh 




00D4 


3D20 


R0W4 


2: dw 


03D20h 




00D6 


3D70 


R0W4 


3: dw 


03D70h 




00D8 


3DC0 


R0W4 


4: dw 


03DC0h 




OODA 


3E10 


R0W4 


5: dw 


03E10h 




OODC 


3E60 


R0W4 


S: dw 


03E60h 




OODE 


3EB0 


R0W4 


7: dw 


03EB0h 




OOEO 


3F00 


R0W4 
PAGE 


3: dw 


03F00h 
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0OE2 




; INI 


TIALIZE 










i #****##*#♦**#*♦##♦#♦*#»#**##*###*****##*##*###* 




00E2 


3E 20 


INIT 


MVI 


A, SPC ; space 




0OE4 


16 E9 




MVI 


D> low LEADIN;byte count 




0OE6 


CD 04C7 




CALL 


DRLLP i store spaces 




0OE9 


AF 




XRA 


A 




OOEA 


32 3FA2 




STA 


LINWCT ; zero leadin word count 




OOED 


16 17 




MVI 


Dj256-1ow LEADINi bgte count 




OOEF 


CD 04C7 




CALL 


DRLLP ; store zeros 




00F2 


31 3FE7 




LXI 


SP, STK+2 




OOFS 


21 5050 




LXI 


H, 05050h 




OOFS 


E5 




PUSH 


H ; set up fifo rd/wrt ptrs 




00F9 


CD 04AE 




CALL 


CURULK i enable cursor- unlock kbd 




OOFC 


32 3FEA 




STA 


FFWCT i zero fifo word count(FFh) 




OOFF 


23 




INX 


H ; RTECTL 




0100 


36 1C 




MVI 


Mi OlCb > cursor blink cntl 




0102 


2E FC 




MVI 


L, low LRDW; last row 




0104 


36 BO 




MVI 


M, low RR24 




0106 


2E FE 




MVI 


L, low FROM; first row 




0108 


36 82 




MVI 


M, low RR1 




010A 


DB 30 




IN 


KBDPRT ; clear keyboard intr 




010C 


CD 04CE 




CALL 


CLRSCN i clear screen 




010F 


CD 07BF 




CALL 


ACESW >init ace, read setsw 




0112 


3E 3F 


PATT 


M: MVI 


A, 03Fh 




0114 


21 3780 




LXI 


H, FCHR2 ; 1st byte of page 2 




0117 


75 


PTNL 


F>: MOV 


M, L f write pattern 




0118 


23 




INX 


H 




0119 


BC 




CMP 


H 
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01 1A C2 0117 JNZ PTNLP 

011D D3 01 OUT BELPRT ,ring bell for ready 

i CALCULATE SCREEN ADDR AFTER VERTICAL INTERRUPT 
OUF 2E EB VCAL: MVI L, low CURTMR 



; c ursor t imer 
j c ursor enab le 

i rate cnt 1 

i blink rate mask 

i c ursor on 

i 8350 offset 

; offset addr high 

i =5Fh if cursor off 

i save cursor 

; fetch row start 

i offset addr high 



i de=top of page 

i cak row wrap constant 

; divide by 2 

; add offset 

; cursor 1 ocation 

; update c ursor 

; update top of page 

;row wrap constant 

; VCALEN 

; disable VCAL routine 



0121 


7E 




0122 


2F 




0123 


34 




0124 


23 




0125 


A6 




0126 


23 




0127 


A6 




0128 


C4 


0174 


012B 


3E 


20 


012D 


84 




012E 


67 




012F 


E5 




0130 


2A 


3FFE 


0133 


2B 




0134 


7E 




0135 


C6 


20 


0137 


57 




0138 


2B 





MOV 


A, M 


CMA 




INR 


M 


INX 


H 


ANA 


M 


INX 


H 


ANA 


M 


CNZ 


CURLOC 


MVI 


A, 020h 


ADD 


H 


MOV 


H, A 


PUSH 


H 


LHLD 


FROW 


DCX 


H 


MOV 


A, M 


AD I 


020 h 


MOV 


D, A 


DCX 


H 
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0139 






0139 


5E 




013A 


7D 




013B 


OF 




013C 


C6 


SF 


013E 


El 




013F 


F3 




0140 


22 


3FF8 


0143 


EB 




0144 


22 


3FF6 


0147 


21 


3FF5 


014A 


77 




014B 


2B 




014C 


36 


00 


014E 


FB 




014F 


76 




0150 


7E 




0151 


B7 




0152 


CA 


014E 


0155 


C3 


OUF 



MOV 


E.M 


MOV 


A, L 


RRC 




ADI 


08Fh 


POP 


H 


DI 




SHLD 


CUR 


XCHG 




SHLD 


TOP 


LXI 


H, NRW 


MOV 


M, A 


DCX 


H 


MVI 


M, 


EI 




HLT 




MOV 


A, M 


ORA 


A 


JZ 


WAIT 


JMP 


VCAL 



i VCALEN 

; check from vert 



cal c u lat ions 



015A 


E6 


7F 


015C 


FE 


20 


015E 


DA 


0168 


0161 


FE 


7E 


0163 


DA 


0372 


0166 


D6 


5E 


0168 


2B 




0169 


74 




016A 


07 




016B 


5F 




016C 


1A 




016D 


6F 




016E 


13 




016F 


1A 




0170 


C9 




0171 


3E 


50 


0173 


90 




0174 


2A 


3FFA 


0177 


2B 




0178 


56 




0179 


2B 




017A 


5E 




017B 


68 




017C 


19 




017D 


C9 





; CALCULATE JMP ADDR 

CJMP: MVI L. low LEADIN 

; mask 1st bit 

iO-lFh, func 





AN I 


07Fh 


CAL JMP: 


CPI 


SPC 




JC 


FUNC 




CPI 


07Eh 




JC 


CHAR 




SUI 


05Eh 


FUNC: 


DCX 


H 




MOV 


M, H 


JMP ADD: 


RLC 






MOV 


E, A 




LDAX 


D 




MOV 


L, A 




INX 


D 




LDAX 


D 




RET 





; 2Q-7Dh, char input 

i 7E/7Fh to 20/21h 

; insert mode 

i hOOi defeat insert mode 

; *2, msb=0 

; d=02h ( jmp tbl ) 

.fetch jmp addr low 



ifetch jmp addr high 



LHLD 


CROW 


DCX 


H 


MOV 


D, M 


DCX 


H 


MOV 


E, M 


MOV 


L, B 


DAD 


D 


RET 





; CALCULATE CUR LOC AND CUR TO END DIFF 
DFCLOC: MVI A, 80 

SUB B ; cursor to end difference 

i CALCULATE CURSOR LOCATION 



;hl=cursor address 
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; ROW WRAP AROUND LOOKUP TABLE (start addr = 17Eh) 

017E OOEO RR47D: dw OOEOh 

0180 0082 RR4SD: dw 0082h 

0182 0084 RR1: dw 0084h 
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0184 


0086 RR2: 


du 


0086h 




0186 


0088 RR3 




du 


OOBBh 




0188 


008A RR4 




dw 


OOSAh 




018A 


008C RR5 




dtu 


008Ch 




01BC 


OOBE RR6 




dm 


OOSEh 




018E 


0090 RR7 




du 


0090h 




0190 


0092 RR8 




du 


0092h 




0192 


0094 RR9 




dw 


0094h 




0194 


0096 RR10 


dw 


0096h 




0196 


0098 RR11 


dm 


0098h 




0198 


009A RR12 


dw 


009Ah 




019A 


009C RR13 


dw 


009Ch 




019C 


009E RR14 


dw 


009Eh 




019E 


OOAO RR15 


dw 


OOAOh 




01AO 


00A2 RR16 


du) 


00A2h 




01A2 


00A4 RR17 


dw 


00A4h 




01A4 


0OA6 RR18 


dw 


00A6h 




01A6 


00A8 RR19 


du 


OOABh 




01A8 


OOAA RR20 


dw 


OOAAh 




01AA 


OOAC RR21 


dw 


OOACh 




01AC 


OOAE RR22 


dw 


OOAEh 




01AE 


OOBO RR23 


dw 


OOBOh 




01B0 


0OB2 RR24 


dw 


00B2h 




01B2 


00B4 RR25 


dw 


O0B4h 




01B4 


00B6 RR26 


dw 


O0B6h 




01B6 


00B8 RR27 


dw 


00B8h 




01B8 


OOBA RR28 


dw 


OOBAh 




01BA 


OOBC RR29 


dw 


OOBCh 




01BC 


OOBE RR30 


dw 


OOBEh 




01BE 


OOCO RR31 


dw 


OOCOh 




01C0 


0OC2 RR32 


dw 


00C2h 




01C2 


00C4 RR33 


dw 


00C4h 




01C4 


0OC6 RR34 


dw 


00C6h 




01C6 


00C8 RR35 


dw 


00C8h 




01C8 


OOCA RR36 


dw 


OOCAh 




01CA 


OOCC RR37 


dw 


OOCCh 




01CC 


OOCE RR38 


dw 


OOCEh 




01CE 


OODO RR39 


dw 


OODOh 




01 DO 


00D2 RR40 


dw 


O0D2h 




01D2 


00D4 RR41 


dw 


00D4h 




01D4 


00D6 RR42 


dw 


00D6h 




01D6 


00D8 RR43 


dw 


00D8h 




01D8 


OODA RR44 


dw 


OODAh 




01 DA 


OODC 


*R45 


dw 


OODCh 




01 DC 


OODE RR46 


dw 


OODEh 




01DE 


OOEO 


*R47 


du 


OOEOh 




01E0 


0082 


RR48 


dw 


0082 h 




01E2 


0084 


RR1D 


du 


0084 h 
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CRTB01 
















JUM 


3 ADDRESS 


CONSTANTS 








##*#******##**#*##***♦**#**##*##*#**#♦#****-*■#«# 








A15 


: - 0= 


no leadin required 








A14/A12: - parameter count 








All 


: - 0= 


local function 




1000 




^1 


equ 


OlOOOh ; one para adder 




2000 




A2 


equ 


02000h i two para adder 




8000 




LIN 


equ 


08000h ileddin adder 




0800 




MLC 


equ 


00800h ;not local adder 




0A5F 




-1 


equ 


RTN+NLC 




03B9 




F2 


equ 


CARRTN 




03B1 




F3 


equ 


LFEED 




0C34 




F4 


equ 


BELL+NLC 




060A 




F5 


equ 


TAB 




0437 




F6 


equ 


FS 




041F 




F7 


equ 


BS 




844E 




F8 


equ 


UPCUR+LIN 




8460 




F9 


equ 


DWNCUR+LIN 




84D8 




F10 


equ 


HOMCUR+LIN 




85F3 




Fll 


equ 


NPAGE+LIN 




8472 




F12 


equ 


ROLUP+LIN 




S48C 




F13 


equ 


ROLDWN+LIN 




84AE 




F14 


equ 


CURULK+LIN 




SDD1 




F15 


equ 


RDCUR+LIN+NLC 




ADA2 




F16 


equ 


ADDCUR +L I N+NLC +W2 




84F1 




F17 


equ 


FGNDF+LIN 




84F7 




FIB 


equ 


BONDF+LIN 




836B 




F19 


equ 


INSCHAR+LIN 




8358 




F20 


equ 


STOFCH+LIN 




8505 




F21 


equ 


INSLNE+LIN 




8512 




F22 


equ 


STOFLNE+LIN 




AD26 




F23 


equ 


ISLRG+LIN+NLC+U2 




9E8A 




F24 


equ 


GRAPH+LIN+NLC+W1 


TL/F/5869-11 



13 



0419 




F25 


equ 


DEL 






83DB 




F26 


equ 


DCROW+LIN 




84C0 




F27 


equ 


DRTLN+LIN 




84BA 




F2B 


equ 


DRTPG+LIN 




8642 




F29 


equ 


CFB+LIN 






84CE 




F30 


equ 


CLRSCN+LIN 




SCB6 




F31 


equ 


KBLK+LIN+NLC 




801B 




F32 


equ 


DICUR+LIN 




871D 




F33 


equ 


SNDLNE+LIN 




87BF 




F34 


equ 


ACESW+LIN 




0AC5 




F35 


equ 


LINSET+NLC 




86BC 




F36 


equ 


DEGRPH+LIN 
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CRT801 














01E4 


















;PUT A WORD TO 


ACE 






01E4 


57 


KB DACE MOV 


D, A 






01E5 


3A 9005 




LDA 


ACESTU 






01E8 


E6 20 




AN I 


020h 






01EA 


CA 01E5 




JZ 


KBDACE+1 


not ready 




01ED 


C3 0079 


i ACE 


JMP 
BAUD RATE 


OUTAGE 
CONSTANTS 






01F0 


06AB 


BUO: 


dw 


1707 







01F2 


0139 


B600: 


dw 


313 


1 




01F4 


009C 


B1200 


dw 


156 


0. 37. 2 




01F6 


004E 


B2400 


dw 


78 


0. 37. 3 




01F8 


0027 


B4800 


dw 


39 


0. 37. 4 




01 FA 


0014 


B9600 


dw 


20 


2. 37. 5 




01FC 


OOOA 


B1920 


3: dw 


10 


2. 37. 6 




01FE 


0005 


B3840 


3: dw 


5 


2. 37. 7 








;FUNC 


riON JUMP 


TABLE 


(start addr=200h ) 








; ##*####**##***#**##**#***#**#****#*******##**#* 




0200 


0A5F 


TBLJM 


=*: dw 


Fl 


null /togg le local 




0202 


8472 




dw 


F12 


A: roll up 




0204 


9E8A 


CB: 


dw 


F24 


B: graph ics mode 




0206 


84AE 




dw 


F14 


C: on cursor/unlock kbd 




0208 


8358 




dw 


F20 


D: strip off character 




020A 


8DD1 


CE; 


dw 


F15 


E: read cursor 




020C 


801B 




dw 


F32 


F: d isable cursor 




020E 


0C34 


CG: 


dw 


F4 


G: bell/scale 




0210 


041F 




dw 


F7 


H: cursor left 




0212 


060A 




dw 


F5 


I: tab 




0214 


03B1 




dw 


F3 


J: line feed 




0216 


8460 




dw 


F9 


K: cursor down 




0218 


844E 




dw 


FB 


L: cursor up 




021A 


03B9 




dw 


F2 


M: carriage return 




021C 


85F3 




dw 


Fll 


N: next page 




021E 


84C0 




dw 


F27 


0:delete rest of line 




0220 


0437 




dw 


F6 


P: cursor right 




0222 


ADA2 


CO.; 


dw 


F16 


Q: address cursor/menu 




0224 


84D8 




dw 


F10 


R: home cursor 




0226 


8512 




dw 


F22 


S: strip off a 1 ine 




0228 


871D 




dw 


F33 


T: transmit a line 




022A 


8CB6 


CU: 


dw 


F31 


U: lock keyboard 




022C 


848C 




dw 


F13 


V: roll down 




022E 


84BA 




dw 


F2B 


W: delete rest of page 




0230 


8642 




dw 


F29 


X: clear fore/background 




0232 


84F7 




dw 


FIB 


Y: background follows 




0234 


8505 




dw 


F21 


Z: insert line 




0236 


86BC 




dw 


F36 


IB: esc/defeat graphics 




0238 


84CE 




dw 


F30 


1C: home and clear screen 




023A 


AD26 


C1D: 


dw 


F23 


ID: insert/str i p lne/rng 




023C 


836B 




dw 


F19 


IE: insert character 




023E 


B4F1 




dw 


F17 


IF: foreground follows 




0240 


0AC5 


C7E: 


dw 


F35 


7E: leadin/ace, u/l-case 




0242 


0419 




dw 


F25 


7F: delete 
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jSTOR 


E A WORD 


TO ACE FIF 


D 




0244 


3E 50 


STFIF 


0: MVI 


A, 80 






0246 


BE 




CMP 


M 


i exceeding 80 words? 




0247 


3A 9000 




LDA 


ACEDTA 


i read ace 




024A 


DA 032C 




JC 


OVRNG 


;more than 80 words 




024D 


2E E6 




MVI 


L, low FF 


WRT 




024F 


54 




MDV 


D, H 


; set up write pointer high 




0250 


5E 




MOV 


E,M 


; set up write pointer low 




0251 


12 




STAX 


D 


; store to f i f o 




0252 


7B 




MOV 


A, E 






0253 


3C 




INR 


A 


; advance pointer 




0254 


FE AO 




CPI 


low FFEN 


D+l; exceeding 80 words? 




0256 


DA 02 5 A 




JC 


WFFRNG 


i less than 80 words 




0259 


IF 




RAR 




; f i f o start again 


TL/F/5869-12 



14 



025A 


77 




WFFRNG: 


MOV 


M, A 


; advance write pointer 




025B 


FB 






EI 








025C 


Dl 




CMRTN: 


POP 


D 






025D 


Fl 






POP 


PSW 






025E 


El 






POP 


H 












i {FUNCTION} unu 


sed keys 






025F 


C9 




RTN: 


RET 














;KEY BOARD RETURN, addr 


high=2h 




0260 


AF 




KLCRTN: 


XRA 


A 


i enable keyboard 




0261 


32 


3FEE 




STA 


KBDLCK 






0264 


C3 


025C 




JMP 


CMRTN 












i CHECK 


FIFO AND 


RETURN, 


addr high=2h 




0267 


21 


3FEA 


FFCHK: 


LXI 


H, FFWCT 


; f i f o word c ount 




026A 


35 






DCR 


M 


i f ifo empty? 




026B 


FA 


025C 




JM 


CMRTN 


i empty 










; READ A 


WORD FRDM ACE FIFO 




026E 


2E 


E5 


RDFIFO: 


MVI 


L, lout FFRD 




0270 


54 






MOV 


D, H 


i set up read pointer high 




0271 


5E 






MOV 


E, M 


i set up read pointer low 




0272 


7B 






MOV 


A, E 






0273 


3C 






INR 


A 


; advance read pointer 




0274 


FE 


AO 




CPI 


low FFEND+li exceed ing 80 words? 




0276 


DA 


027A 




JC 


RFFRNG 


; less than 80 words 




0279 


IF 






RAR 




i f i f o start again 




027A 


77 




RFFRNG: 


MOV 


M, A 


; store read pointer 




027B 


2E 


E9 




MVI 


L, low LEADIN 




027D 


7E 






MOV 


A, M 






027E 


B7 






OR A 


A 


i leadin mode»0? 




027F 


1A 






LDAX 


D 


i read f if o word 




02S0 


CA 


004E 


PAGE 


JZ 


FIFACE 


; not leadin. normal entry 
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0283 






i LEAD IN 


MODE 








0283 


E6 


7F 


LINMDE: 


AN I 


07Fh 


; mask input 




0285 


11 


0267 




LXI 


D, FFCHK 






0288 


D5 






PUSH 


D 


i pseudo call 




0289 


2E 


A2 




MVI 


L, low LINWCT 




028B 


5E 






MOV 


E, M 


i leadin word count 




028C 


ID 






DCR 


E 


i word count=0? 




028D 


F2 


02B3 




JP 


LINPRA 


j parameter entries 




0290 


FE 


20 




CPI 


SPC 


i control codes? 




0292 


D2 


02C2 




JNC 


ILELIN 


i not cntl code, error 




0295 


CD 


016A 




CALL 


JMPADD 


i fetch jmp address 




0298 


B7 






ORA 


A 






0299 


F2 


02C2 




JP 


ILELIN 


i code requires no leadin 




029C 


E6 


77 




ANI 


077h 


j word count/jmp addr high 




029E 


67 






MOV 


H, A 


; save 




029F 


E6 


70 




ANI 


070h 


; mask word count 




02A1 


CA 


02BE 




JZ 


LINEXE 


; do f unct ion 




02A4 


OF 




LINPFN: 


RRC 




/right justify word count 




02A5 


OF 






RRC 








02A6 


OF 






RRC 








02A7 


OF 






RRC 








02A8 


32 


3FA2 




STA 


LINWCT 


; store to word count reg 




02AB 


3E 


07 




MVI 


A, 07h 






02AD 


A4 






ANA 


H 


i get jmp addr high 




02AE 


67 






MOV 


H, A 






02AF 


22 


3FA0 




SHLD 


LINF 


; save function jmp addr 




02B2 


C9 






RET 








02B3 


73 




LINPRA: 


MOV 


M, E 


j leadin word count-1 




02B4 


16 


00 




MVI 


D, 


i d=0, e=word count-1 




02B6 


23 






INX 


H 


i LINP 




02B7 


19 






DAD 


D 


; hl^para pointer 




02B8 


77 






MOV 


M, A 


; store word 




02B9 


CO 






RNZ 




; word countOO, next word 




02BA 


2A 


3FA0 




LHLD 


LINF 


; load leadin jmp address 




02BD 


AF 






XRA 


A 






02BE 


32 


3FE9 


LINEXE: 


STA 


LEADIN 


; defeat 1 ea6 in 




02C1 


E9 






PCHL 




i do f unct ion 




02C2 


D3 


01 


ILELIN: 


OUT 


BELPRT 


; illegal code after leadin 




02C4 


AF 






XRA 


A 


} a=0, reset lead in 


TL/F/5869-13 



15 



02C5 
02CS 



32 3FE9 
C9 



;<FUNCTION> set leadin mode 
LINSET: STA LEADIN iaOO, 
RET 



set 1 ead in 
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02C9 




02C9 


AF 


02CA 


32 3FEB 


02CD 


B6 


02CE 


DB SO 


02D0 


FB 


02D1 


D5 


02D2 


C2 0327 



02D5 S7 
02D6 CA 0333 



02D9 


77 




02DA 


11 


0260 


02DD 


D5 




02DE 


23 




02DF 


B6 




02E0 


23 




02E1 


FE 


61 


02E3 


DA 


02EC 


02E6 


FE 


7B 


02E8 


D2 


02EC 


02EB 


96 




02EC 


23 




02ED 


5E 




02EE 


1C 




02EF 


C2 


01E4 


02F2 


FE 


AO 


02F4 


D2 


068D 


02F7 


CD 


0158 


02FA 


E6 


OF 


02FC 


FE 


08 


02FE 


DA 


005F 


0301 


7B 




0302 


FE 


05 


0304 


CA 


06B7 


0307 


FE 


OB 


0309 


CA 


0773 


030C 


FE 


OF 


030E 


CA 


0784 


0311 


FE 


23 


0313 


CA 


06D5 


0316 


FE 


41 


0318 


CA 


07CD 


031B 


FE 


3B 


031D 


CA 


034F 


0320 


FE 


2B 



; keyboard interrupt continue 
KBDINT: 



XRA 

STA 

ORA 

IN 

EI 

PUSH 

JNZ 

DRA 
JZ 

MOV 
LXI 
PUSH 

INX 

ORA 

INX 

CPI 

JC 

CPI 

JNC 

SUB 

INX 
MOV 
INR 
JNZ 

CPI 
JNC 

CALL 

ANI 

CPI 

JC 

MOV 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 
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A 

CURTMR ; reset cursor blink timer 

M ; keyboard loc ked? 

KBDPRT ; read keyboard 



KNACTV ; keyboard not active 

A 

TGLCL i toggle local 

; defeat graph ics 
M, A > lock keyboard 
D. KLCRTN 
D > generate pseudo call 

H ; GECNTL 
M 

; ULCASE 



H 

061h 

NLCSE 

07Bh 

NLCSE 

M 

H 

E, M 
E 
KBDACE 

OAOh 
LGPARA 

CJMP 
OFh 
08h 

LCLFUN 
A, E 



; not lower case 



> not 1 ower case 

; u/1 case cntl»m=20h/0 



; local mode? 
; write to ace 



; parameter entry? 

; yes 



> get jmp addr 



> local? 

; do local function 

; read lookup tb 1 ptr 

low CB + li cntl B? 

ENGRPH i enable graphics mode 

low CE+1; cntl E? 

LRDCUR (display cursor location 

low CG+1; cntl G? 

SCALE ; put scale 

low CQ+li cntl Q? 

PGM i put graphics menu 

low C7E+1 

ATGUL i init ace? toggle u/1 case 

low C1D+1 

R0M2 ;do rom2 functions 

low CU+1; cntl U? 



0322 


CO 






RNZ 




unused keys 


0323 


Dl 






POP 


D 


pseudo rtn+lock kbd 


0324 


C3 


0261 




JMP 


KLCRTN+1 




0327 


EE 


03 


KNACTV: 


XRI 


KULCDE 


lock/unlock kbd? 


0329 


CA 


025A 




JZ 


CMRTN-2 


unlock keyboard 


032C 


3E 


50 


OVRNG: 


MVI 


A, 80 


for FFWCT 


032E 


D3 


01 




OUT 


BELPRT 




0330 


C3 


025A 




JMP 


CMRTN-2 


lock kbd 


0333 


23 




TGLCL: 


INX 


H 


GECNTL 


0334 


77 






MOV 


Mi A 


disable graphics mode 


0335 


32 


3FE9 




STA 


LEADIN 


reset leadin 


0338 


2E 


Fl 




MVI 


L, low LOCLM 


033 A 


7E 






MOV 


A, M 




033B 


2F 






CMA 




toggle local 


033C 


77 






MOV 


M, A 




033D 


CD 


07E8 




CALL 


EDACE 


, en/disab le ace 


0340 


C2 


0345 




JNZ 


ONLINE 




0343 


3E 


IE 




MVI 


A, 03h XOR OIDh 


0345 


EE 


ID 


ONLINE: 


XRI 


OIDh 
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0347 


00 




0348 


00 




0349 


32 


3FED 


034C 


C3 


025C 


034F 


3A 


0800 


0352 


FE 


55 


0354 


CO 




0355 


C3 


0801 



nop 




out Iclprt 


nop 






STA 


RTECTL 


select blink rate 


JMF 


CMRTN 




; JMP TO R0M2 






R0M2: LDA 


0800h 


check presence of rom2 


CPI 


055h 


= 55h? 


RNZ 




not exist 


JMP 


080 lh 


okj do jmp 



({FUNCTION} stripe off a character 



0358 


CD 


0171 


035B 


3D 




035C 


CA 


0434 


035F 


23 




0360 


56 




0361 


2B 




0362 


72 




0363 


23 




0364 


3D 




0365 


C2 


03 5F 


0368 


C3 


03A4 


036B 


AF 




036C 


32 


3FE8 


036F 


C3 


038D 
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0372 






0372 


Dl 




0373 


2E 


20 


0375 


AE 




0376 


AD 




0377 


2A 


3FFA 


037A 


2B 




037B 


56 




037C 


2B 




037D 


5E 




037E 


68 




037F 


19 




0380 


77 




0381 


3E 


4F 


0383 


A8 




0384 


CA 


03C0 


0387 


04 




0388 


3A 


3FE8 


038B 


B7 




038C 


CO 




038D 


3E 


4F 


038F 


90 




0390 


CA 


03AB 


0393 


2A 


3FFA 


0396 


5E 




0397 


23 




0398 


56 




0399 


IB 




039A 


EB 




039B 


2B 




039C 


56 




039D 


23 




039E 


72 




039F 


2B 




03A0 


3D 




03A1 


C2 


039B 


03A4 


3E 


80 


03A6 


A2 




03A7 


F6 


20 


03A9 


77 




03AA 


C9 




03AB 


3C 




03AC 


D3 


01 


03AE 


C3 


03CE 



> get cur loc and diff 
; last column, error 



; do copy 



; put a space 

; {FUNCTION} insert character 
INSCHAR: XRA A 

STA ICMD ; enable insert mode 

JMP INSCHR 
PAGE 



STOFCH: 


CALL 


DFCLOC 




DCR 


A 




JZ 


BELL 


STOFLP: 


INX 


H 




MOV 


D, M 




DCX 


H 




MOV 


M, D 




INX 


H 




DCR 


A 




JNZ 


STOFLP 




JMP 


PSPC 
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; CHARACTER INPUT 



CHAR: 


POP 


D 


; pseudo return 




MVI 


L, low FBG 




XRA 


M 


; add attr ibute 




XRA 


L 


iremove space code 




LHLD 


CROW 


(calculate cursor loc 




DCX 


H 






MOV 


D. M 






DCX 


H 






MOV 


E. M 






MOV 


L, B 


; row start+cursor 




DAD 


D 


j hl = cursor address 




MOV 


M, A 


i write to screen 




MVI 


A, 79 






XRA 


B 


; last column? 




JZ 


LSTCHR 


i last> do scroll 


MIDCHR: 


INR 


B 


;else advance cursor 




LDA 


ICMD 


; insert mode? 




ORA 


A 






RNZ 




; not insert mod e 


INSCHR; 


MVI 


A, 79 






SUB 


B 


i byte counter 




JZ 


ILCHAR 


(cursor at last column 




LHLD 


CROW 






MOV 


E. M 






INX 


H 






MOV 


D, M 


; d=roui end + 1 




DCX 


D 


i rou end 




XCHG 






INSLP: 


DCX 


H 






MOV 


D, M 






INX 


H 






MOV 


M, D 


; do copy 




DCX 


H 






DCR 


A 






JNZ 


INSLP 




PSPC: 


MVI 


A, 080h 






ANA 


D 


(get character attribute 




OR I 


SPC 


i add space 




MOV 


M, A 






RET 






ILCHAR: 


INR 


A 


(make aOO 




OUT 


BELPRT 






JMP 


DICMD 


/defeat insert char mode 



TL/F/5869-15 
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STARPLEX MACRO-ASSEMBLER V2. 
CRTSOl 



03B1 


3A 


3FF2 


03B4 


B7 




03B5 


C2 


03C1 


03B8 


C9 




03B9 


3A 


3FF2 


03BC 


B7 




03BD 


C2 


04DE 



; {FUNCTION} line feed 
LFEED: LDA AULF 
ORA A 
JNZ LFD 
RET 



i auto 1 ine f eed'' 
; do 1 ine feed 



i {FUNCTION} carriage return 

CARRTN: LDA AULF ; auto line feed? 

ORA A 

JNZ ZROCUR ; do cr onlg 



03C1 


11 


3FFC 


03C4 


2A 


3FFA 


03C7 


24 




03C8 


1A 




03C9 


BD 




03CA 


7E 




03CB 


32 


3FFA 


03CE 


32 


3FE8 


03D1 


CO 




03D2 


EB 




03D3 


F3 




03D4 


77 




03D5 


2E 


FE 


03D7 


5E 




03D8 


1A 




03D9 


77 




03DA 


FB 





LSTCHR: 


MOV 


B, A 


i set cursor to 1st col 


LFD: 


LXI 


D, LROW 






LHLD 


CROW 






INR 


H 






LDAX 


D 






CMP 


L 


; crou=lrou? 




MOV 


A, M 


i nex t row 




STA 


CROW 


-, crow+1 


DICMD. 


STA 


ICMD 


; defeat insert char mode 




RNZ 




>not last row 


LFSCR: 


XCHG 
DI 




; last row, do scroll 




MOV 


M, A 


-, lrow+1 




MVI 


L, low 


FROW 




MOV 


E,M 


ide s roui wrap arround tbl 




LDAX 


D 






MOV 


M, A 


; frow+1 




EI 







; {FUNCTION} clear cursor row 
DCROW: LHLD CROW 



03DE 


EB 




CLRROW: XCHG 




03DF 


21 


OOOO 


LXI 


H, 


03E2 


39 




DAD 


BP 


03E3 


EB 




XCHG 




03E4 


F3 




DI 




03E5 


F9 




SPHL 




03E6 


El 




POP 


H 


03E7 


F9 




SPHL 




03E8 


FB 




EI 




03E9 


2A 


3F20 


LHLD 


FBG 



STARPLEX MACRO-ASSEMBLER V2. 
CRTB01 



03EC 




03EC 


E5 


03ED 


E5 


03EE 


E5 


03EF 


E5 


03F0 


E5 


03F1 


E5 


03F2 


E5 


03F3 


E5 


03F4 


E5 


03F5 


E5 


03F6 


E5 


03F7 


E5 


03F8 


E5 


03F9 


E5 


03FA 


E5 


03FB 


E5 


03FC 


E5 


03FD 


E5 


03FE 


E5 


03FF 


E5 


0400 


E5 


0401 


E5 


0402 


E5 


0403 


E5 


0404 


E5 


0405 


E5 


0406 


E5 


0407 


E5 


0408 


E5 


0409 


E5 


040A 


E5 


040B 


E5 


040C 


F3 



PUSHSP: PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


DI 





; lookup row start 
> sp=row start 

; space + attribute 
16 

; do c 1 ear row 



TL/F/5869-16 



18 



040D 


E5 


040E 


E5 


040F 


E5 


0410 


E5 


0411 


E5 


0412 


E5 


0413 


E5 


0414 


E5 


0415 


EB 


0416 


F9 


0417 


FB 


0418 


C9 



PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


PUSH 


H 


XCHG 




SPHL 




EI 




RET 





0419 


3E 


20 


DEL: 


MVI 


A, SPC 




041B 


CD 


06CB 




CALL 


STSP 


; store space 


041E 


AF 




PAGE 


XRA 


A 


; do bac k space 


STARPLEX 


MACRO-ASSEMBLER V/2. 




PAGE 


17 


CRTBOl 














041F 




















; <FUNCTION> bac 


k space 




041F 


C4 


06C1 


BS: 


CNZ 


CHKGM 


icheck graphics mode 


0422 


F3 




BS1: 


DI 






0423 


05 






DCR 


B 


; c ursor-1 


0424 


F2 


0417 




JP 


BSRTN 


i not 1st column 


0427 


04 






INR 


B 




0428 


FB 






EI 






0429 


3A 


3FEF 




LDA 


GECNTL 




042C 


B7 






OR A 


A 


; graph ics mode? 


042D 


CO 






RNZ 




; defeat wrap arround 


042E 


CD 


0451 




CALL 


UCUR1 


i up cursor one row 


0431 


C8 






RZ 




; crow=frow? 


0432 


06 


4F 




MVI 


B. 79 


i set cursor to last col 


0434 


D3 


01 


BELL: 


OUT 


BELPRT 




0436 


C9 






RET 












i <FUNCTION> forward cursor 


0437 


CD 


06C1 


FS: 


CALL 


CHKGM 


;check graphics mode 


043A 


3E 


4F 




MVI 


A, 79 




043C 


B8 






CMP 


B 


; last col umn? 


043D 


C2 


0387 




JNZ 


MIDCHR 


; not last column 


0440 


3A 


3FEF 




LDA 


GECNTL 




0443 


B7 






ORA 


A 


; graph ics mode? 


0444 


CO 






RNZ 




; defeat wrap arround 


0445 


CD 


0463 




CALL 


DCUR1 


i down cursor one row 


0448 


C8 






RZ 




i crow=lrow? 


0449 


06 


00 




MVI 


B,0 


; set cursor to 1st col 


044B 


D3 


01 




OUT 


BELPRT 




044D 


C9 






RET 












i {FUNCTION> up 


cursor one row 


044E 


CD 


06C1 


UPCUR: 


CALL 


CHKGM 


jcheck graphics mode 


0451 


11 


3FFA 


UCUR1: 


LXI 


D, CROW 




0454 


2A 


3FFE 




LHLD 


FROW 




0457 


1A 






LDAX 


D 


; crow 


0458 


24 






INR 


H 


;hl=row wrap arround tbl 


0459 


BD 






CMP 


L 


; crow=frow? 


045A 


C2 


04A7 




JNZ 


*4 




045D 


D3 


01 




DUT 


BELPRT 


.crow=frow» ring bell 


045F 


C9 






RET 












i {FUNCTION} down cursor 


one row 


0460 


CD 


06C1 


DWNCUR: 


CALL 


CHKGM 


icheck graphics mode 


0463 


11 


3FFA 


DCUR1: 


LXI 


D, CROW 




0466 


2A 


3FFC 




LHLD 


LROW 




0469 


1A 






LDAX 


D 


i crow 


046A 


24 






INR 


H 


i hl^row ujrap arroud tbl 


046B 


BD 






CMP 


L 


; crow=lrow? 


046C 


C2 


04A9 




JNZ 


*5 




046F 


D3 


01 




OUT 


BELPRT 


i crow=lrowi ring bell 


0471 


C9 






RET 







STARPLEX MACRO-ASSEMBLER V2. 
CRTSOl 



0472 


11 


3FFA 


0475 
0478 


2A 
1A 


3FFE 


0479 


24 




047A 


BD 




047B 


7E 




047C 


F3 




047D 


32 


3FFE 


0480 


C2 


0484 



; {FUNCTION} roll up 
ROLUP: 



LXI 


D, CROW 






LHLD 


FROW 






LDAX 


D 






INR 


H 


; h l=row wrap 


arround 


CMP 


L 


; crow=frow? 




MOV 


A, M 


i ne xt row 




DI 








STA 


FROW 


; frow+1 




JNZ 


RUNEQ 







TL/F/5869-17 
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0483 


12 






STAX 


D 


; croiK+1 




0484 


EB 




RUNEQ: 


XCHG 




i d=l, h=3Fh 




0485 


2E 


FC 




MVI 


L, low LROW 




0487 


5E 






MOV 


E, M 


i de=row wrap arround tbl 




048B 


1A 






LDAX 


D 


; nex t row 




0489 


77 






MOV 


M, A 


; lrow+1 




048A 


FB 






EI 








04BB 


C9 






RET 














i {FUNCTION} roll down 






048C 


11 


3FFA 


ROLDWN: 


LXI 


D, CROW 






048F 


3A 


3FFC 




LDA 


LROW 






0492 


D6 


04 




SUI 


4 


; up one roui 




0494 


6F 






MOV 


L, A 






0495 


26 


01 




MVI 


H, 1 


;hl=row wrap arround tbl 




0497 


1A 






LDAX 


D 


; crow 




049B 


D6 


04 




SUI 


4 






049A 


BD 






CMP 


L 


; crow=lrow? 




049B 


7E 






MOV 


A, M 


; up one row 




049C 


F3 






DI 








049D 


32 


3FFC 




STA 


LROW 


; lrow-1 




04A0 


C2 


04A4 




JNZ 


RDNEQ 






04A3 


12 






STAX 


D 


; crow-1 




04A4 


IE 


FE 


RDNEQ: 


MVI 


E, low FROW 




04A6 


1A 






LDAX 


D 






04A7 


D6 


04 


*4: 


SUI 


4 






04A9 


6F 




*5; 


MOV 


L, A 


;hl=row wrap arround tbl 




04AA 


7E 






MOV 


A, M 






04AB 


12 






STAX 


D 


; frow-1 




04AC 


FB 






EI 








04AD 


C9 






RET 














; {FUNCTION} enable cursor* unlock keyboard 




04AE 


AF 




CURULK: 


XRA 


A 






04AF 


32 


3FEE 




STA 


KBDLCK 


; un loc k k ey board 




04B2 


2F 






CMA 




; enab 1 e c ursor 




04B3 


C3 


001B 




JMP 


DICUR 












; {FUNCTION} 1 


ock keyboar 


d 




04B6 


32 


3FEE 


KBLK: 


STA 


KBDLCK 


; lock keyboard 




04B9 


C9 




PAGE 


RET 








STARPLEX 
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19 




CRT801 
















04BA 






















i {FUNCTION} d 


elete rest 


of page 




04BA 


3A 


3FFA 


DRTPG: 


LDA 


CROW 






04BD 


CD 


04E9 




CALL 


CTLRW2 


; c 1 ear crow+1 to lrow 










i {FUNCTION} d 


elete rest 


of line 




04C0 


CD 


0171 


DRTLN: 


CALL 


DFCLOC 


; get cursor loc and diff 




04C3 


57 






MOV 


D, A 


; save 




04C4 


3A 


3F20 




LDA 


FBG 






04C7 


77 




DRLLP: 


MOV 


M, A 


; store space/attribute 




04C8 


23 






INX 


H 






04C9 


15 






DCR 


D 






04CA 


C2 


04C7 




JNZ 


DRLLP 


i unti 1 end of line 




04CD 


C9 






RET 














; {FUNCTION} c 


lear screen 






04CE 


CD 


06BC 


CLRSCN: 


CALL 


DEGRPH 


/defeat graphics mode 




04D1 


2A 


3FFE 




LHLD 


FROW 






04D4 


7D 






MOV 


A, L 






04D5 


CD 


04E6 




CALL 


CTLRW1 


; clear frow to lrow 










i {FUNCTION} h 


ome cursor 






04D8 


3A 


3FFE 


HOMCUR: 


LDA 


FROW 






04DB 


32 


3FFA 




STA 


CROW 


> crow=frow 




04DE 


06 


00 


ZROCUR: 


MVI 


B,0 


; set cursor to 1st col 




O4E0 


C9 






RET 














i CLEAR 


TO LAST ROW 






04E1 


16 


01 


CLRWLP: 


MVI 


D, 1 






04E3 


5F 






MOV 


E. A 


;de=row wrap arround tbl 




04E4 


1A 






LDAX 


D 


; next row 




04E5 


6F 






MOV 


L, A 






04E6 


CD 


03DE 


CTLRW1: 


CALL 


CLRROW 


; c 1 ear wh ole row 




04E9 


2A 


3FFC 


CTLRW2: 


LHLD 


LROW 






04EC 


BD 






CMP 


L 


; row=lrow? 




04ED 


C2 


04E1 




JNZ 


CLRWLP 


> until last row 




04F0 


C9 






RET 














; {FUNCTION} f 


oreground f 


ol 1 ows 




04F1 


11 


2020 


FGNDF: 


LXI 


D, 02020h 


(foreground spaces 




04F4 


C3 


04FA 




JMP 


LDFGD 
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; {FUNCTION} b 


ackground f 


ol lows 




04F7 


11 


AOAO 


BGNDF: 


LXI 


D, OAOAOb 


background spaces 




04FA 


21 


0000 


LDFGD: 


LXI 


H, 






04FD 


39 






DAD 


SP 






04FE 


EB 






XCHG 








04FF 


31 


3F50 




LXI 


SP, DMYROW+80 




0502 


C3 


03EC 


PAGE 


JMP 


PUSHSP 


store in dummy row 




5TARPLEX 


MACRO-ASSEMBLER V2. 




PAGE 


20 




CRTB01 
















0505 






















; {FUNCTION} insert a line 




0505 


CD 


0590 


INSLNE: 


CALL 


CRLR 


calc crow/lrow diff 




0508 


21 


3FFA 




LXI 


H, CROW 






050B 


73 






MOV 


M, E 


set crow=lrow 




050C 


C2 


054B 




JNZ 


MOVDWN 


move row contents 




050F 


C3 


058C 




JMP 


DRWZCU 


else/ del lrow/zero cur 










; {FUNCTION} s 


trip off a 


1 ine 




0512 


CD 


0590 


STOFLNE 


: CALL 


CRLR 


get crow/lrow diff 




0515 


CA 


058C 




JZ 


DRWZCU 


del lrow/zero cursor 




0518 


E5 




SLNERG: 


PUSH 


H 


else do move 




0519 


21 


3FE7 




LXI 


H, CPYCTL 






051C 


36 


00 




MVI 


M, 


copy upward 




051E 


CD 


0550 




CALL 


MOVROW 


move row contents 




0521 


El 






POP 


H 


get original crow 




0522 


22 


3FFA 




SHLD 


CROW 


back to crow 




0525 


C9 






RET 














i {FUNCTION} i 


nsert/str i p 


off line with range 




0526 


2A 


3FFA 


ISLRG: 


LHLD 


CROW 






0529 


3A 


3FA3 




LDA 


LINP 


read 2nd parameter 




052C 


3D 






DCR 


A 






052D 


E6 


3F 




ANI 


03Fh 


40/7Fh offset to 0/3Fh 




052F 


FE 


38 




CPI 


03Sh 






0531 


DO 






RNC 




error 




0532 


FE 


17 




CPI 


017h 






0534 


DA 


053C 




JC 


ISNPA 






0537 


FE 


20 




CPI 


020h 






0539 


D8 






RC 




error 




053A 


D6 


09 




SUI 


9 






053C 


3C 




ISNPA: 


INR 


A 






053D 


57 






MOV 


D, A 






053E 


3A 


3FA4 




LDA 


LINP+1 


read 1st parameter 




0541 


FE 


53 




CPI 


»S" 


strip off? 




0543 


7A 






MOV 


A, D 






0544 


CA 


0518 




JZ 


SLNERG 


do str i p off line 




0547 


CD 


05C1 


ILNERG: 


CALL 


IRWOS 


offset row by para 




054A 


7A 






MOV 


A, D 


return para 




054B 


21 


3FE7 


MOVDWN: 


LXI 


H, CPYCTL 






054E 


36 


04 




MVI 


M, 4 


copy downward 










; MOVE ROW CONTENTS, UP/DOWN CNTL BY CPYCTL 




0550 


F5 




MOVROW: 


PUSH 


PSW 


save row count 




0551 


2A 


3FFA 




LHLD 


CROW 






0554 


5E 






MOV 


E, M 






0555 


23 






INX 


H 






0556 


56 






MOV 


D, M 






0557 


IB 






DCX 


D 


crow end 




0558 


D5 






PUSH 


D 


save 




0559 


21 


3FE7 




LXI 


H, CPYCTL 


direction control 




055C 


11 


3FFA 




LXI 


D, CROW 






055F 


1A 






LDAX 


D 


read crow 




0560 


96 




PAGE 


SUB 


M 


d irec t i on cnt 1 




STARPLEX 


MACRO-ASSEMBLER V2. 




PAGE 


21 




CRT801 
















0561 
















0561 


6F 






MOV 


L, A 






0562 


26 


01 




MVI 


H, 1 


hl=row wrap arround tb 1 




0564 


7E 






MOV 


A, M 


lookup +/- one row 




0565 


12 






STAX 


D 


update crow 




0566 


6F 






MOV 


L, A 






0567 


25 






DCR 


H 


hl=row start table 




0568 


5E 






MOV 


E, M 






0569 


23 






INX 


H 






056 A 


56 






MOV 


D, M 






056B 


IB 






DCX 


D 


+/- row end 




056C 


El 






POP 


H 


rtn current row last loc 




056D 


06 


10 




MVI 


B.SO/5 


copy 80 characters 




056F 


1A 




CPLP: 


LDAX 


D 


read 




0570 


77 






MOV 


M, A 


copy 




0571 


2B 






DCX 


H 


next byte 




0572 


IB 






DCX 


D 


next byte 




0573 


1A 






LDAX 


D 


do 5 times for speed 




0574 


77 






MOV 


M, A 
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21 



0575 


2B 






DCX 


H 






0576 


IB 






DCX 


D 






0577 


IA 






LDAX 


D 


3 




0578 


77 






MOV 


M, A 






0577 


2B 






DCX 


H 






057A 


IB 






DCX 


D 






057D 


IA 






LDAX 


D 


4 




057C 


77 






MOV 


M, A 






057D 


2B 






DCX 


H 






057E 


IB 






DCX 


D 






057F 


IA 






LDAX 


D 


5 




0580 


77 






MOV 


M, A 






0581 


2B 






DCX 


H 






0582 


IB 






DCX 


D 






0583 


05 






DCR 


B 






0584 


C2 


056F 




JNZ 


CPLP 


finish 80 bytes? 




0587 


Fl 






POP 


PSW 


row count 




0588 


3D 






DCR 


A 






0589 


C2 


0550 




JNZ 


MOVROW 


f next row 




058C 


47 




DRWZCU: 


MOV 


B, A 


» zero cursor 




058D 


C3 


03DB 




JMP 


DC ROW 


;and delete cursor row 










; CALCULATE RDW 


DIFFERENCE 




0590 


2A 


3FFA 


CRLR: 


LHLD 


CROW 


; calc crow to lrow 




0593 


3A 


3FFC 




LDA 


LROW 






0596 


5F 




FRCR: 


MOV 


E, A 






0597 


95 






SUB 


L 


i get the difference 




0598 


D2 


O5A0 




JNC 


$2 


i wi th in range 




059D 


3E 


60 


*D2: 


MVI 


A, RWRG 


; over range 




059D 


83 






ADD 


E 






059E 


95 






SUB 


L 






059F 


B7 






ORA 


A 


; c 1 ear carry 




05AO 


IF 




*2: 


RAR 




; row d if f /2 




05A1 


C9 




PAGE 


RET 








STARPLEX 


MACRO-ASSEMBLER V2. 




PAGE 
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05A2 






















i {FUNCTION} address cursor 




05A2 


2A 


3FA3 


ADDCUR : 


LHLD 


LINP 


; read leadin parameter 




05A5 


7C 






MOV 


A, H 






05A6 


11 


5010 


CALCX: 


LXI 


D, 05010h 


icalc x c oord inate 




05A9 


BA 






CMP 


D 






05AA 


DA 


05B3 




JC 


CX4FD 


; 00/4Fh=loc 0/79 




05 AD 


92 






SUB 


D 


; 50/7Fh offset to 0/2F 




05AE 


BB 






CMP 


E 






05AF 


DA 


05B3 




JC 


CX4FD 


i 50/5Fh offset to 0/15 




05B2 


93 






SUB 


E 


; 60/7Fh offset to 0/31 




05B3 


47 




CX4FD: 


MOV 


B, A 


i then set c ursor 




05B4 


3E 


IF 


CALCY: 


MVI 


A, OlFh 






05B6 


A5 






ANA 


L 


; 0/ 1F> 20/3F, 40/5F, 60/7Fh 




05B7 


FE 


IB 




CPI 


018h 


; offset to OO/lFh 




05B9 


DA 


05BE 




JC 


CY17D 


; 00/17h=rou 0/23 




05BC 


D6 


18 




SUI 


018h 


j 18/lFh=row 0/7 




05BE 


2A 


3FFE 


CY17D: 


LHLD 


FROW 


; offset first row 




05C1 


07 




IRWOS: 


RLC 




; dif f*2, msb=0 




05C2 


85 






ADD 


L 


-, frout+of f set 




05C3 


DA 


05CB 




JC 


ROSFFU 


; >FFh 




05C6 


FE 


El 




CPI 


low RR48 


+ 1 




05C8 


DA 


05CD 




JC 


ROSEOD 


-, less than EOh, ok 




05CB 


D6 


60 


ROSFFU: 


SUI 


RWRG 


; row range 




05CD 


32 


3FFA 


ROSEOD: 


STA 


CROW 


;then update crow 




05D0 


C9 






RET 














i {FUNCTION} read cursor 






05D1 


CD 


05E0 


RDCUR: 


CALL 


RDX 


;read cursor x coord 




05D4 


CD 


006D 




CALL 


WTACEA 


; write to ace 




05D7 


CD 


05E7 




CALL 


RDY 


i read cursor y coord 




05DA 


CD 


006D 




CALL 


WTACEA 


i write to ace 




05DD 


C3 


074A 




JMP 


CRACE 


; cr for termination 




05E0 


78 




RDX: 


MOV 


A, B 






05E1 


FE 


20 




CPI 


020h 


i if O/lFh add offset 




05E3 


DO 






RNC 




; 20/4Fh=cursor loc 32/79 




05E4 


C6 


60 




ADI 


060 h 


s 60/7Fh=cursor loc 0/31 




05E6 


C9 






RET 
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05E7 


2A 


3FFE 


05EA 


3A 


3FFA 


05ED 


CD 


0596 


05F0 


C6 


60 


05F2 


C9 





LHLD 


FROW 


LDA 


CROW 


CALL 


FRCR 


ADI 


060h 


RET 





i calc frow/crow diff 
;60/77h=row 0/23 
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05F3 


16 


30 


05F5 


21 


3FFA 


05FS 


F3 




05F9 


7E 




05FA 


FE 


Bl 


05FC 


DA 


0601 


05FF 


92 




0600 


92 




0601 


32 




0602 


77 




0603 


2C 




0604 


2C 




0605 


FA 


05F9 


0608 


FB 




0609 


C9 





; <FUNCTION> next page 
NPAGE: 



MVI 


D, 030h 


; page offset 


LXI 


H, CROW 




DI 






MOV 


A, M 




CPI 


OBlh 




JC 


NPLT 


ia< Bl, 82-B0h 


SUB 


D 


; a>=Bl, B2-E0h 


SUB 


D 




ADD 


D 




MOV 


M, A 




INR 


L 


i do crow/ lrow 


INR 


L 




JM 


NPLP 


; if pass f rou) 


EI 






RET 







060A 2A 3FFA 
060D E5 
060E CD 0667 



> <FUNCTION> tab 

TAB: LHLD CROW 

PUSH H ; save crow 

CALL SCATT 



0611 
0612 
0613 
0616 
0617 
0613 
06 IB 
061D 
0620 
0621 
0622 
0625 
0626 
0627 
062A 
062C 
062F 
0630 
0632 
0633 
0634 
0635 
0636 
0637 
063A 
063B 
063C 
063F 



13 

2D 

CC 067A 

1A 

84 

FA 0635 

FE 20 

C2 0611 

13 

2D 

CC 067A 

1A 

84 

FA 0635 

FE 20 

CA 0620 

Dl 

3E 50 

95 

47 

C9 

13 

2D 

CC 067A 

1A 

B4 

FA 0635 

C3 062F 



TDAOSP: 


INX 


D 




DCR 


L 




CZ 


DRCFL 




LDAX 


D 




ADD 


H 




JM 


TSATT 




CPI 


SPC 




JNZ 


TDAOSP 


TSANSP : 


INX 


D 




DCR 


L 




CZ 


DRCFL 




LDAX 


D 




ADD 


H 




JM 


TSATT 




CPI 


SPC 




JZ 


TSANSP 


TMCUR: 


POP 


D 




MVI 


A, 80 




SUB 


L 




MOV 


B, A 




RET 




TSATT: 


INX 


D 




DCR 


L 




CZ 


DRCFL 




LDAX 


D 




ADD 


H 




JM 


TSATT 




JMP 


TMCUR 



; next character 

; end of row? 

; down one row, get 1st lac 

; read charac ter 

i chec k attr i bute 

idiffi find same attrib 

i space? 

i loop unt i 1 space 

; next character 

i end of row? 

i down one rouii get 1st lac 

; read charac ter 

; check attribute 

>diff, find same attrib 

; non space? 

i loop until non space 

; remove saved crow 

i calc cursor location 
; move cursor 

i next character 

; end of row? 

; down one rou). get 1st loc 

read character 

check attribute 

loop until same attrib 

move cursor 



STARPLEX 
CRT801 
0642 

0642 
0645 
0646 
0647 
064A 
064B 
064C 
064F 
0651 
0652 
0653 
0654 
0655 
0658 
0659 
065C 
065D 
065E 
065F 
0660 
0663 
0666 
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2A 3FFA 

24 

E5 

CD 0667 

1A 

84 

FA 0653 

3E 20 

B4 

12 

13 

2D 

C2 064A 

El 

3A 3FFC 

BD 

C8 

6E 

E5 

CD 0681 

C3 064A 

C9 



i {FUNCTION} clear fore/background to space 



CFB: 


LHLD 


CROW 






INR 


H 






PUSH 


H 


; save 




CALL 


SCATT 




CFBLP: 


LDAX 


D 


; read character 




ADD 


H 


j test attribute 




JM 


CFBDIF 


i diff attrib 




MVI 


A, SPC 


i if same attrib 




ORA 


H 


; put a space 




STAX 


D 




CFBDIF: 


INX 


D 


; next c harac ter 




DCR 


L 


i charac ter c oun 




JNZ 


CFBLP 


; unt i 1 finish 8 




POP 


H 


; saved crow 




LDA 


LROW 






CMP 


L 


; row=lrow? 




RZ 




; no more 




MOV 


L, M 


> else next row 




PUSH 


H 


; save 




CALL 


*3 






JMP 


CFBLP 






RET 







er-1 
c har 
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;SET UP CHAR COUNTER AND ATTRIB 



0667 


CD 


0174 


066A 


EB 




066B 


21 


8050 


066E 


3A 


3F20 


0671 


A4 




0672 


67 




0673 


22 


3FA5 


0676 


7D 




0677 


90 




0678 


6F 




0679 


C9 




067A 


CD 


0463 


067D 


CA 


0033 


0680 


6E 




0681 


25 




0682 


2B 




0683 


56 




0684 


2B 




0685 


5E 




0686 


2A 


3FA5 


0689 


C9 




STARPLEX 
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068A 






068A 


3A 


3FA3 


068D 


21 


107E 


0690 


3D 




0691 


E6 


3F 


0693 


BC 




0694 


DA 


06AD 


0697 


FE 


3E 


0699 


CA 


06B2 


069C 


94 




0690 


FE 


OF 


069F 


CA 


06B2 


06A2 


BC 




06A3 


DA 


06AC 


06A6 


FE 


20 


06A8 


DA 


06AD 


06AB 


2C 




06AC 


7D 




06AD 


CD 


06D0 


06B0 


C6 


IE 


06B2 


D6 


IE 


06B4 


32 


3FF3 


06B7 


3E 


80 


06B9 


C3 


06BD 


06BC 


AF 




06BD 


32 


3FEF 


06C0 


C9 





*3: 
SI: 



CALL 


CURLOC 


get cursor location 


XCHG 




put in de 


LXI 


H, 08050h 


mask /char count 


LDA 


FBG 




ANA 


H 




MOV 


H, A 




SHLD 


LINP+2 


save count. attrib 


MOV 


A, L 




SUB 


B 


get cur to end diff 


MOV 


L, A 


put in 1 


RET 






IE ROW 


AND GET ADDR ON 1ST COLUMN 


CALL 


DCUR1 


down cursor one row 


JZ 


TABSTP 


crow=lrow. no tab 


MOV 


L. M 


next row 


DCR 


H 




DCX 


H 




MOV 


D, M 


addr high 


DCX 


H 




MOV 


E, M 


addr low 


LHLD 


LINP+2 


count and attrib 


RET 







; <FUNCTION> graphics 



GRAPH: 


LDA 


LINP 


read leadin paramete 


LGPARA: 


LXI 


H, 0107Eh 






DCR 


A 






ANI 


03Fh 






CMP 


H 


h=010h 




JC 


*G1 


"A" to "P" 




CPI 


03Eh 


delete 




JZ 


*G3 






SUB 


H 


h=010h 




CPI 


OFh 


space? 




JZ 


*G3 


spac e 




CMP 


H 


h=010h 




JC 


*G2 


> "Q" 




CPI 


020h 






JC 


$G1 


"a" to "p" 




INR 


L 


set 1 to 7Fh 


*G2: 


MOV 


A, L 


L=7Eh or 7Fh 


*G1: 


CALL 


STSCN 


put symbol to screen 




ADI 


OlEh 




*G3: 


SUI 


OlEh 






STA 


GSYMBL 


for non/des true t i ve 


ENGRPH: 


MVI 


A. 080 h 






JMP 


DEGRPH+1 





; {FUNCTION} defeat graphics 
DEGRPH: XRA A 

STA GECNTL 

RET 



i CHECK GRAPHICS MODE AND PUT SYMBOL TO SCREEN 



06C1 


3A 


3FEF 


CHKGM: 


LDA 


GECNTL 




06C4 


B7 






ORA 


A 


i graph ic s mode? 


06C5 


CB 






RZ 




i no, rtn to f unc 


06C6 


3A 


3FF3 




LDA 


GSYMBL 




06C9 


B7 






ORA 


A 


; non destructive mov 


06CA 


FB 






RM 




; yes 


06CB 


21 


3F20 


STSP: 


LXI 


H, FBG 




06CE 


AE 






XRA 


M 


i get attr ibute 


06CF 


AD 






XRA 


L 


; remove space code 


06D0 


CD 


0174 


STSCN: 


CALL 


CURLOC 




06D3 


77 






MOV 


M, A 


; write to screen 


06D4 


C9 






RET 







PAGE 
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CRT801 
06D5 

;PUT GRAPHIC MENU TO SCREEN (LOCAL) 
06D5 CD 070C PGM: CALL RUADD 



06DB 
06DB 



CD 06F3 
CD 06F3 



CALL 
CALL 



P38SYM 
P38SYM 



; print asc i i A/Q 
; print asc i i a/q 
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06DE 


CD 


070C 




CALL 


RUADD 






06E1 


CD 


0700 




CALL 


P32SYM 


i print asc i i Oh/Fh 




06E4 


F6 


7E 




OR I 


07Eh 


; print asc i i 7Eh 




06E6 


CD 


06F7 




CALL 


P6SYM 


; 4 spaces 




06E9 


EE 


30 




XRI 


030h 


; print asc i i 10/lFh 




06EB 


CD 


0700 




CALL 


P32SYM 






06EE 


F6 


7F 




OR I 


07Fh 


i print asc i i 7Fh 




06F0 


C3 


06F7 




JMP 


P6SYM 


i 4 spaces 




06F3 


F6 


41 


P38SYM: 


OR I 


041h 


, change symbol 




06F5 


16 


10 




MVI 


D, 16 


; counter 




06F7 


14 




P6SYM: 


INR 


D 






06F8 


CD 


0702 




CALL 


PGMLP 






06FB 


16 


04 


P4SP: 


MVI 


D, 4 






06FD 


C3 


04C4 




JMP 


DRLLP-3 


; put 4 spaces 




0700 


16 


10 


P32SYM: 


MVI 


D, 16 


; print 32 symbols 




0702 


77 




PGMLP: 


MOV 


M, A 






0703 


23 






INX 


H 






0704 


73 






MOV 


M, E 


;FBG 




0705 


23 






INX 


H 






0706 


3C 






INR 


A 


; next symbol 




0707 


15 






DCR 


D 






0708 


C2 


0702 




JNZ 


PGMLP 






070B 


C9 






RET 








070C 


CD 


0472 


RUADD: 


CALL 


ROLUP 


i up one row 




070F 


26 


00 




MVI 


H, 






0711 


6F 






MOV 


L, A 


, h l=lrow 




0712 


CD 


0682 




CALL 


$1 


; lrow 1st 1 oc 




0715 


EB 






XCHG 








0716 


CD 


06FB 




CALL 


P4SP 


i put 4 spaces 




0719 


5F 






MOV 


E, A 


; FBG 




071A 


E6 


80 




AN I 


080h 


; get attr i bute 




071C 


C9 




PAGE 


RET 
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071D 






















: <FUNCTI0N> t 


ransmit a 


ine 




071D 


06 


00 


SNDLNE: 


MVI 


B, 


; set cursor to 1st loc 




071F 


CD 


0174 




CALL 


CURLOC 


> get row start 




0722 


E5 






PUSH 


H 


; save row start 




0723 


11 


004F 




LXI 


D, 79 


i find row end 




0726 


19 






DAD 


D 


;hl=row endi clear carry 




0727 


16 


40 




MVI 


D, 040h 


; rotated space 




0729 


7E 




LENDLP: 


MOV 


A, M 


; read char 




072A 


17 






RAL 




> mask out msb 




072B 


AA 






XRA 


D 


; space? * clear carry 




072C 


C2 


0734 




JNZ 


LNSP 


; until find a non-space 




072F 


2B 






DCX 


H 






0730 


ID 






DCR 


E 






0731 


C2 


0729 




JNZ 


LENDLP 


i repeat 1 oop 




0734 


El 




LNSP: 


POP 


H 


;hl=row start again 




0735 


56 




SNDLP : 


MOV 


D, M 


; read charac ter 




0736 


3E 


60 




MVI 


A, 060h 


; screen all cntl codes 




0738 


A2 






ANA 


D 






0739 


C2 


07 3E 




JNZ 


SNCNTL 


; not control code 




073C 


16 


2A 




MVI 


D, "#" 


i cntl code.' send "*" instead 




073E 


CD 


006E 


SNCNTL: 


CALL 


WTACED 


;wr ite to ace 




0741 


7E 






MOV 


A, M 


< read char again 




0742 


EE 


80 




XRI 


OSOh 


i invert attribute 




0744 


77 






MOV 


M, A 


; store back 




0745 


23 






INX 


H 


; next charac ter 




0746 


ID 






DCR 


E 






0747 


F2 


0735 




JP 


SNDLP 


; unt i 1 end of line 




074A 


CD 


006B 


GRACE: 


CALL 


SNDCR 


> send cr for termination 




074D 


3A 


3FF1 




LDA 


LOCLM 






0750 


B7 






ORA 


A 


; local? 




0751 


C8 






RZ 




;remote,no time delay 




0752 


CD 


075E 


*D3: 


CALL 


*DLY 


ido de lay 




0755 


15 






DCR 


D 


; d was ODh 




0756 


C2 


0752 




JNZ 


*D3 






0759 


D3 


01 




OUT 


BELPRT 


idelay done- ring bell 




075B 


C3 


0463 




JMP 


DCUR1 


;move cursor to next row 




075E 


E5 




*DLY: 


PUSH 


H 






075F 


D5 






PUSH 


D 
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0760 


CD 


07F0 




CALL 


LUBD 


lookup baud constant 




0763 


3E 


IF 




MVI 


A. OlFh 


chg delay at high bauds 




0765 


B3 






ORA 


E 






0766 


5F 






MOV 


E, A 






0767 


CD 


059B 


*D1: 


CALL 


*D2 






076A 


IB 






DCX 


D 






076B 


15 






DCR 


D 






076C 


14 






INR 


D 






076D 


F2 


0767 




JP 


*D1 






0770 


Dl 






POP 


D 






0771 


El 






POP 


H 






0772 


C9 




PAGE 


RET 
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0773 






















; DISPLAY CURSOR 


LOCATION 


(LOCAL) 




0773 


CD 


05E7 


LRDCUR: 


CALL 


RDY 


y coordinate 




0776 


2A 


3FFC 




LHLD 


LROW 


get print out loc 




0779 


5E 






MOV 


E, M 






077A 


23 






INX 


H 






077B 


56 






MOV 


D, M 






077C 


IB 






DCX 


D 


lrow last location 




077D 


12 






STAX 


D 


put to screen 




077E 


CD 


05E0 




CALL 


RDX 


x coordinate 




0781 


IB 






DCX 


D 






0782 


12 






STAX 


D 


put to screen 




0783 


C9 




i SCALE 


RET 
< LOCAL) 








0784 


21 


3FFE 


SCALE: 


LXI 


H, FROW 






0787 


3A 


3FFA 




LDA 


CROW 






078A 


BE 






CMP 


M 


f roiD=croui 




078B 


CC 


048C 




CZ 


ROLDWN 


if equ, roll down 




078E 


2A 


3FFA 




LHLD 


CROW 


get print out loc 




0791 


2B 






DCX 


H 






0792 


2B 






DCX 


H 






0793 


CD 


0682 




CALL 


*1 






0796 


EB 






XCHG 




hl=loc 




0797 


IE 


31 




MVI 


E, "1" 






0799 


16 


Bl 


SCLLP1: 


MVI 


D, "l"+080h 




079B 


3E 


BA 




MVI 


A, "9"+081h 




079D 


72 




SCLLP2: 


MOV 


M, D 






079E 


14 






INR 


D 


"1" to "9" 




079F 


23 






INX 


H 


next location 




07A0 


BA 






CMP 


D 


exceeding "9 "7' 




07A1 


C2 


079D 




JNZ 


SCLLP2 






07A4 


3E 


39 




MVI 


A, "9" 






07A6 


73 






MOV 


M, E 






07A7 


1C 






INR 


E 


»1" to "8" 




07A8 


23 






INX 


H 


next location 




07A9 


BB 






CMP 


E 


exceeding "8"? 




07AA 


C2 


0799 




JNZ 


SCLLP1 






07 AD 


C9 






RET 














j VERTICAL INTERRUPT CONT 


INUE 










; ******* 


t*##*#«*# 


#**»***•«•*■ 


**#*#***#***#**#*#**#-*•*■* 




07AE 


2B 




VTSUB: 


DCX 


H 


VCALEN 




07AF 


74 






MOV 


M, H 


hOO. enable VCAL routine 




07B0 


2A 


3FF8 




LHLD 


CUR 


get cursor 




07B3 


36 


03 




MVI 


M, 3 


write to DP8350 




07BS 


2A 


3FF6 




LHLD 


TOP 


tap of page 




07B8 


36 


02 




MVI 


M, 2 


urite to DP8350 




07BA 


D3 


40 




OUT 


VERPRT 


clr vert intr flip/flop 




07BC 


El 






POP 


H 






07BD 


FB 






EI 








07BE 


C9 




PAGE 


RET 
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07BF 






















i <FUNCTION> ace 


, auto li 


ne feed) upper/lower case 




07BF 


DB 


40 


ACESW: 


IN 


SETSW 


read switch settings 




07C1 


E6 


10 




AN I 


OlOh 






07C3 


32 


3FF2 




STA 


AULF 


set auto If flag 




07C6 


DB 


40 




IN 


SETSW 


read switch again 




07C8 


E6 


20 




AN I 


020h 






07CA 


C3 


07D2 




JMP 


STUL 


set u/1 case flag 
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INIT ACE, TOGGLE 


JLCASE 


(LOCAL) 






07CD 


3A 3FF0 


ATGUL: 


LDA 


ULCASE 








07D0 


EE 20 






XRI 


020h 


togg 1 e u 


/l case 




07D2 


32 3FF0 


STUL: 


STA 


ULCASE 








07D5 


CD 07F0 






CALL 


LUBD 


lookup b 


aud constant 




07D8 


21 9003 






LXI 


H 


ACECTL 








Q7DB 


74 






MOV 


M 


H 


set DLAB 






07DC 


2E 01 






MVI 


L 


1 








07DE 


72 






MOV 


M 


D 


set baud 


high 




07DF 


2B 






DCX 


H 










07EO 


73 






MOV 


M 


E 


set baud 


low 




07E1 


2E 03 






MVI 


L 


3 








07E3 


36 02 






MVI 


M 


2 


7 bit, 1 


stop bit 




07E5 


3A 3FF1 






LDA 


LOCLM 


local' 






07E8 


3C 


EDACE: 


INR 


A 










07E9 


21 9000 






LXI 


H 


ACEDTA 








07EC 


5E 






MOV 


E 


M 


remove ace input 




07ED 


23 






INX 


H 




ACEITR mask 




07EE 


77 






MOV 


M 


A 


en/disable ace intr 




07EF 


C9 






RET 












07F0 


DB 40 


LUBD: 


IN 


SETSW 


lookup b 


aud constant 




07F2 


E6 OE 






ANI 


OEh 








07F4 


C6 FO 


BADDR: 


ADI 


1 


dui BUO 


add base 


addr 




07F6 


6F 






MOV 


L 


A 








07F7 


26 01 






MVI 


H 


1 








07F9 


5E 






MOV 


E 


M 


get baud 


lout 




07FA 


23 






INX 


H 










07FB 


56 






MOV 


D 


M 


get baud 


high 




07FC 


C9 






RET 




















END 


START 
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Macros ; 




















Symbol s 




















*1 


0682 


*2 


05A0 


*3 




0681 


*4 


04A7 




*5 


04A9 


*D1 


0767 


*D2 




059B 


*D3 


0752 




SDLY 


075E 


*G1 


06AD 


*G2 




06AC 


*G3 


06B2 




ACE 


0038 


ACECTL 


9003 


ACEDTA 


9000 


ACEDUP 


0018 




ACEITR 


9001 


ACESTU 


9005 


ACESW 




07BF 


ADDCUR 


05A2 




ATGUL 


07CD 


AULF 


3FF2 


B110 




01F0 


B1200 


01F4 




B 19200 


01FC 


B2400 


01F6 


B38400 


01FE 


B4800 


01F8 




B600 


01F2 


B9600 


01FA 


BADDR 




07F4 


BELL 


0434 




BELPRT 


0001 


BGNDF 


04F7 


BS 




041F 


BS1 


0422 




BSRTN 


0417 


C1D 


023A 


C7E 




0240 


CALCX 


05A6 




CALCY 


05B4 


CALJMP 


015C 


CARRTN 


03B9 


CB 


0204 




CE 


020A 


CFB 


0642 


CFBDIF 


0653 


CFBLP 


064A 




CO 


020E 


CHAR 


0372 


CHKGM 




06C1 


CJMP 


0158 




CLRROW 


03DE 


CLRSCN 


04CE 


CLRWLF 




04E1 


CMRTN 


025C 




CPLP 


056F 


CPYCTL 


3FE7 


CQ 




0222 


CR 


OOOD 




CRACE 


074A 


CRLR 


0590 


CROW 




3FFA 


CROWH 


3FFB 




CTLRW1 


04E6 


CTLRW2 


04E9 


CU 




022A 


CUR 


3FF8 




CUR EN 


3FEC 


CURH 


3FF9 


CURLOC 




0174 


CURTMR 


3FEB 




CURULK 


04AE 


CX4FD 


05B3 


CY17D 




05BE 


DCROW 


03DB 




DCUR1 


0463 


DEGRPH 


06BC 


DEL 




0419 


DFCLOC 


0171 




DICMD 


03CE 


DICUR 


001B 


DMYROW 


3F00 


DRCFL 


067A 




DRLLP 


04C7 


DRTLN 


04CO 


DRTPG 




04BA 


DRUZCU 


058C 




DWNCUR 


0460 


EDACE 


07E8 


ENGRPH 


06B7 


Fl 


0A5F 




F10 


84D8 


Fll 


85F3 


F12 




8472 


F13 


848C 




F14 


84AE 


F15 


8DD1 


F16 




ADA2 


F17 


84F1 




F18 


84F7 


F19 


B36B 


F2 




03B9 


F20 


8358 




F21 


8505 


F22 


8512 


F23 




AD26 


F24 


9E8A 




F25 


0419 


F26 


S3DB 


F27 




84C0 


F28 


84BA 




F29 


8642 


F3 


03B1 


F30 




84CE 


F31 


8CB6 




F32 


801B 


F33 


871D 


F34 




S7BF 


F35 


0AC5 




F36 


86BC 


F4 


0C34 


F5 




060A 


F6 


0437 




F7 


041F 


F8 


844E 


F9 




8460 


FBG 


3F20 




FCHR2 


3780 


FFCHK 


0267 


FFEND 




3F9F 


FFRD 


3FE5 




FFSTRT 


3F50 


FFWCT 


3FEA 


FFWRT 




3FE6 


FGNDF 


04F1 




FIFACE 


004E 


FRCR 


0596 


FROW 




3FFE 


FROWH 


3FFF 




F3 


0437 


FUNC 


0168 


GECNTL 


3FEF 


GRAPH 


068A 




GSYMBL 


3FF3 


HQMCUR 


04D8 


ICMD 




3FE8 


ILCHAR 


03AB 




ILEUM 


02C2 


ILNERG 


0547 


INIT 




0OE2 


INSCHA 


036B 




INSCHR 


03BD 


INSLNE 


0505 


INSLP 




039B 


IRWOS 


05C1 




ISLRG 


0526 


ISNPA 


053C 


JMPADD 


016A 


KBD 


0020 




KBDACE 


01E4 


KBDINT 


02C9 


KBDLCK 


3FEE 


KBDPRT 


0080 




KBLK 


04B6 


KLCRTN 


0260 


KNACTV 


0327 


KULCDE 


0003 




LCL 


02F2 


LCLFUN 


00 5F 


LCLIND 


0002 


LDFGD 


04FA 




LEADIN 


3FE9 


LENDLP 


0729 


LF 




OOOA 


LFD 


03C1 




LFEED 


03B1 


LFSCR 


03D2 


LGPARA 


068D 


LIN 


8000 




LINC 


007E 


LINEXE 


02BE 


LINF 




3FA0 


LINFH 


3FA1 




LINMDE 


0283 


LINP 


3FA3 


LINP FN 


02A4 


LINPRA 


02B3 
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0) 

I- 

Q 



CO 
CO 

CO 



c 

O) 
"(0 

o 
Q 

<D 

s- 

*-» 
«^ 

o 

0) 



LINSET 


02C5 


LINWCT 


3FA2 


LNSP 


0734 


LOCLM 


3FF1 




LRDCUR 


0773 


LROW 


3FFC 


LROWH 


3FFD 


LSTCHR 


03C0 




LUBD 


07F0 


MIDCHR 


0387 


MOVDWN 


054B 


M0VR0W 


0550 




NLC 


0800 


NLCSE 


02EC 


NOWRAP 


0066 


NPAGE 


05F3 




NPLP 


05F9 


NPLT 


0601 


NRW 


3FF5 


ONLINE 


0345 
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CRTS01 


















OUTAGE 


0079 


OVRNG 


032C 


P32SYM 


0700 


P38SYM 


06F3 




P4SP 


06FB 


P6SYM 


06F7 


PATTN 


0112 


PGM 


06D5 




PGMLP 


0702 


PSPC 


03A4 


PTNLP 


0117 


PUSHSP 


03EC 




RDCUR 


05D1 


RDFIFO 


026E 


RDNEQ 


04A4 


RDX 


05E0 




RDY 


05E7 


RFFRNG 


027A 


R0LDWN 


048C 


ROLUP 


0472 




R0M2 


034F 


ROSEOD 


05CD 


ROSFFU 


05CB 


ROW 


0008 




R0W1 


0082 


R0W10 


0094 


R0W11 


0096 


ROW 12 


0098 




ROW 13 


009A 


R0W14 


009C 


ROW 15 


009E 


ROW 16 


OOAO 




ROW 1 7 


00A2 


R0W18 


00A4 


R0W19 


00A6 


R0W2 


0084 




R0W20 


OOAS 


R0W21 


OOAA 


ROW22 


OOAC 


R0W23 


OOAE 




R0W24 


OOBO 


R0W25 


00B2 


R0W26 


00B4 


R0W27 


00B6 




R0W28 


00B8 


R0W29 


OOBA 


R0W3 


0086 


R0W3O 


OOBC 




R0W31 


OOBE 


R0W32 


ooco 


R0W33 


00C2 


R0W34 


00C4 




R0W35 


00C6 


R0W36 


00C8 


R0W37 


OOCA 


R0W38 


OOCC 




R0W39 


OOCE 


RDW4 


0088 


R0W40 


OODO 


R0W41 


00D2 




R0W42 


00D4 


RDW43 


00D6 


R0W44 


00 D8 


R0W45 


OODA 




R0W46 


OODC 


RDW47 


OODE 


R0W47D 


007E 


R0W48 


OOEO 




R0W48D 


0080 


ROWS 


008A 


R0W6 


008C 


R0W7 


008E 




ROWS 


0090 


R0W9 


0092 


ROWDP 


0028 


ROWPRT 


0040 




RR1 


0182 


RR10 


0194 


RR11 


0196 


RR12 


0198 




RR13 


019A 


RR14 


019C 


RR15 


019E 


RR16 


01A0 




RR17 


01A2 


RR18 


01A4 


RR19 


01A6 


RR1D 


01E2 




RR2 


0184 


RR20 


01A8 


RR21 


01AA 


RR22 


01AC 




RR23 


01AE 


RR24 


01BO 


RR25 


01B2 


RR26 


01B4 




RR27 


01B6 


RR28 


01B8 


RR29 


01BA 


RR3 


0186 




RR30 


01BC 


RR31 


01BE 


RR32 


01C0 


RR33 


01C2 




RR34 


01C4 


RR35 


01C6 


RR36 


01C8 


RR37 


01CA 




RR38 


01CC 


RR39 


01CE 


RR4 


0188 


RR40 


01D0 




RR41 


01D2 


RR42 


01D4 


RR43 


01D6 


RR44 


01D8 




RR45 


01DA 


RR46 


01DC 


RR47 


01DE 


RR47D 


017E 




RR48 


01EO 


RR48D 


01B0 


RR5 


018A 


RR6 


018C 




RR7 


018E 


RR8 


0190 


RR9 


0192 


RTECTL 


3FED 




RTN 


025F 


RUADD 


070C 


RUNEQ 


0484 


RWRG 


0060 




SCALE 


0784 


SCATT 


0667 


SCLLP1 


0799 


SCLLP2 


079D 




SETSW 


0040 


SLNERG 


0518 


SNCNTL 


07 3E 


SNDCR 


006B 




SNDLNE 


071D 


SNDLP 


0735 


SPC 


0020 


START 


0000 




STFIFO 


0244 


STK 


3FE5 


STOFCH 


0358 


STOFLN 


0512 




STOFLP 


035F 


STSCN 


06D0 


STSP 


06CB 


STUL 


07D2 




TAB 


060A 


TABSTP 


0033 


TBLJMP 


0200 


TDAOSP 


0611 




TGLCL 


0333 


TMCUR 


062F 


TOP 


3FF6 


TOPH 


3FF7 




TSANSP 


0620 


TSATT 


0635 


UCUR1 


0451 


ULCASE 


3FF0 




UPCUR 


044E 


VCAL 


OUF 


VCALEN 


3FF4 


VERPRT 


0040 




VERT 


0010 


VERTDP 


0030 


VRWRAP 


0061 


VTSUB 


07AE 




Wl 


1000 


W2 


2000 


WAIT 


01 4E 


WFFRNG 


025A 




WTACEA 


006D 


WTACED 


006E 


ZROCUR 


04DE 








No Fat 


al error ( s ) 
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LIFE SUPPORT POLICY 


















NATIONAL'S PRODUCTS ARE 


NOT AUTHORIZED FOR 


USE AS 


CRITICAL COMPONENTS 


IN LIFE SUPPORT 


DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL 


OF THE 


PRESIDENT OF NATIONAL 


SEMICONDUCTOR CORPORATION. As used herein: 












1. Life support devices or systems 


are devices or 


2. A critical component is 


any component of a life 


systems which, (a) are intended for 


surgical i 


mplant 


support device or system 


whose failure to perform can 


into the body, or (b) support 


or sustain life, and whose 


be reasonably expected to cause 


the failure of the life 


failure to perform, when properly used in accordance 


support device 


or system, or to 


affect its safety or 


with instructions for use provided in 


the labeling, can 


effectiveness. 








be reasonably expected to result in a 


significant injury 












to the user. 
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Ocean Centre, 5 Canton Rd. 


Fax: 81-043-299-2408 


Tel: 1(800)272-9959 


Deutsch 


Tel: (+49)0-180-530 85 85 


Tsimshatsu 


, Kowloon 






Fax: 1(800) 737-7018 


English 


Tel: (+49) 0-180-532 78 32 


Hong Kong 










Frangais 


Tel: (+49)0-180-532 93 58 


Tel: (852)2737-1600 








Italiano 
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National does not assume any responsibility for use of any circuitry described, no circuit patent licenses are implied and National reserves the right at any time without notice to change said circuitry and specificatioi 



